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

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