uses crt ;
  var n,i,nhap,max : integer ;
    begin  
        clrscr ;
write('nhap n phan tu: ') ;
  readln(n) ;
   write('nhap phan tu thu 1=') ;
     readln(max) ;
  for i :=2 to n do
   begin
     write('nhap phan tu thu ',i,'=') ;
      readln(nhap) ;
      if max <nhap then max := nhap ;
   end ;
     writeln('phan tu lon nhat la: ',max)  ;
         readln    
              end .

uses crt;

var i,n,max,k: integer;

begin

clrscr;

Write ('nhap n: ');   readln (n);

max:=0;

for i:=1 to n do

begin

write ('nhap so: ');   readln (k);

if max<k then max:=k;

end;

Writeln ('Max: ',max);

readln;

end.