program so_lon_nhat;

uses crt;

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

     n,i,max:integer;

begin

       clrscr;

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

       for i:=1 to n do

              begin

                     write('Nhap so thu ',i,': ');  readln(A[i]);

              end;

       write('Day so vua nhap la: ');

       max:=A[1];

       for i:=1 to n do

              begin

                     write(A[i],' ');

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

              end;

       writeln;

       write('So lon nhat la: ',max);

       readln;

end.

uses crt

var i,n, Max: integer;

a: array [i .. 100] of integer;

begin

write('Nhap phan tu cua day so' )

for i:=1 to n do begin

writeln ( 'a[ 'a' ] =' ), readln( a[i] ) end;

Max:=a[1]

for i:=2 to n do

if Max<a[i] then max:=a[i];

writeln( 'Gia tri lon nhat cua day so tren la',Max);

readln

End.