Переведите на паскаль ❤️
var
n, max: real;
i: integer;
begin
Read(n);
max := n;
for i:=1 to 4 do
if n > max then
max := n
end;
Write(max)
end.