program raf105;
var a, max1,i: integer;
begin
writeln('Вводите числа по очереди');
max1:= -10000;
for i:=1 to 4 do
readln(a);
if a>max1
then max1:= a;
end;
writeln('Наибольшее: ',max1);
end.
program raf105;
var a, max1,i: integer;
begin
writeln('Вводите числа по очереди');
max1:= -10000;
for i:=1 to 4 do
begin
readln(a);
if a>max1
then max1:= a;
end;
writeln('Наибольшее: ',max1);
end.
Язык PascalABC