program mang;

uses crt;

var A:array [1..50] of integer;

      n,i,max: integer;

Begin

         clrscr;

         write('Nhap so ban: '); readln(n);

         max:=1;

         for i:=1 to n do

         begin

                  write('Chieu cao ban thu ',i,' (cm): '); readlnA[i];

                  if max<A[i] then max:=i;

         end;

         write('Ban cao nhat: ban thu ',max);

         readln

End.

program phuongt;
uses crt;
  var A: array[1..50] of integer;
        i, max, s: integer;
begin
        clrscr;
        for i:=1 to 50 do
        begin
                  write('Nhap chieu cao cua ban thu ', i, ' (cm): '); readln(A[i]);
        end;
        max:=A[1];
        for i:=1 to 50 do if max<A[i] then
        begin
                  max:=A[i];
                  s:=i;
        end;
        write('Ban thu ', i, ' cao nhat va cao ', max, ' cm');
        readln
end.