Program So_lon_nhat;
Uses crt;
Var a : array [1..100] of integer;
i,N,max : integer;
Begin
Clrscr;
Write('nhap so phan tu cua mang: '); readln(N);
For i:=1 to N do
Begin
Write('a[',i,']: '); readln(a[i]);
End;
max:=0;
For i:=1 to N do
If max<a[i] then max:=a[i];
Writeln('So lon nhat la: ',max);
Readln;
End.