uses crt; var a1,a2,a3,a4,max: integer; begin write('Введите четыре числа: '); readln(a1,a2,a3,a4); if a1 >= a2 then max := a1 else max := a2; if a3 > max then max := a3 ; if a4 > max then max:=a4; writeln ('Максимальное число - : ', max); readln end.
Answers & Comments
//Версия 3.3, сборка 1611
begin
write(ReadArrInteger(4).Max());
end.
Verified answer
uses crt;var a1,a2,a3,a4,max: integer;
begin write('Введите четыре числа: ');
readln(a1,a2,a3,a4);
if a1 >= a2 then
max := a1 else
max := a2;
if a3 > max then
max := a3 ;
if a4 > max then
max:=a4;
writeln ('Максимальное число - : ', max);
readln
end.