Question

Переведите на паскаль ❤️

Answer 1

var

 n, max: real;

 i: integer;

begin

 Read(n);

 max := n;

 for i:=1 to 4 do

 begin

   Read(n);

   if n > max then

     max := n

 end;

 Write(max)

end.