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

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