Program zadacha;
Var a,i,max,n:Integer;
Begin
 Write('Ââåäèòå êîë-âî ó÷åíèêîâ â êëàññå: ');
 ReadLn(n);
  WriteLn('Ââåäèòå èíôîðìàöèþ î ó÷åíèêàõ');
  For i:=1 to n do
   Begin
    Write('Ââåäèòå ðîñò ',i,' ó÷.: ');
    ReadLn(a);
   If a > max Then
     max:=a;
   end;
  WriteLn('Ñàìûé âûñîêèé ó÷åíèê: ',max);
End.