uses crt;
 var c : array[1..100] of longint ;
   i ,n : byte ;
  max : integer ;
   begin
clrscr;
 write('Nhap so luong hoc sinh: ');
  readln(n);
 for  i := 1 to n do
   begin
    write('Nhap chieu bao ban thu ',i,' =');
     readln(c[i]);
   end;
     max := c[1];
       for i := 1 to n do
      if max < c[i]
       then max := c[i];
     writeln('Ban co chieu cao cao nhat la: ',max);
      end.

uses crt;

var a: array[1..100] of byte;

i,n,max: byte;

begin

clrscr;

write ('nhap so luong hoc sinh cua to: ');  readln (n);

max:=0;

for i:=1 to n do 

begin

write ('nhap chieu cao ban thu ',i,': ');  readln (a[i]);

if a[i]>max then max:=a[i];

end;

writeln ('ban cao nhat co chieu cao: ',max);

readln;

end.