Составить программу которая выводит на экран самого высокого ученика в классе.

Программа на Паскале. (В задании язык не уточняли)
var i, N, max, r:  integer;
begin writeln('Введите кол-во учеников');
          readln (N);
          writeln('Вводите рост учеников в см через пробел');
          max:=0;
          for i:=1 to n do
          begin read(r);
                    if (r>max) then max:=r;
          end;
          writeln(max);
readln;
end.