program pole;
var
 b: array [1..5] of integer;
 i,max: integer;
begin
 writeln ('zadej 5 cisel: ');
 for i:=1 to 5 do readln (b[i]);  {z pis do pole}
 max:=b[1];
 writeln ('----------------');
 for i:=2 to 5 do if max<b[i] then max:=b[i];
 writeln('nejvetsi je ',max);
 readln;
end.