var a, b, c, d, e: integer;
begin
writeln('Введите число')
readln (a);
readln (b);
readln (c);
readln (d);
if e<a then e:=a;
if e<a then e:=b;
if e<a then e:=c;
if e<a then e:=d;
writeln(e);
end.
Объяснение:
