program maksimum;
var
 i, n: integer;
 arv, max:integer;

begin
 writeln('Programm leiab maksimaalse sisestatud arvu.');
 write('Mitu arvu soovid sisestada ');
 readln(n);
 write('Kirjuta arv ');
 readln(arv);
 max:=arv;

 for i:=2 to n do 
 begin
  write('Kirjuta arv ');
  readln(arv);
  if (arv>max) then
     max:=arv;
 end;

 writeln('Maksimaalne arv on ', max);
end.