Помогите решить задачу по ИВТ на языке паскаль.

Ввести пять чисел и найти наибольшее из них

1

Ответы и объяснения

2013-11-13T08:36:16+00:00
Program z1;
var
a1,a2,a3,a4,a5,ab1,ab2,ab3,max1:integer;
begin
writeln('Введите 5 чисел');
readln(a1,a2,a3,a4,a5);
ab1:=max(a1,a2);
ab2:=max(a3,a4);
ab3:=max(ab1,ab2);
max1:=max(ab3,a5);
writeln(max1);
end.