Program lon_nhat;
Uses crt;
Var A:array[1..100] of integer;
I,n,max : longint;
Begin
Clrscr ;
Write('nhap so n'); read(n);
For i:=1 to n do
Begin
Write('A[',i,']'); readln(A[i]);
End;
Max:=A[1];
For i:=2 to n do
If A[i] > max then max:=A[i] ;
Writeln('phan tu lon nhat bang ',max,' trong mang');
delay(5000)
Readln;
End.