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

Программа на Паскале. (В задании язык не уточняли)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.