Составить программу (по паскалю) даны целые числа найти максимальное число.

begin
  var n, i: integer;
  var max, k: real;
  write('N = ');
 readln(n);
  readln(max);
  for i := 2 to n do
  begin
    readln(k);
    if (k > max) then max := k;
  end;
  writeln('>', max);
end.