Program wanted;
Uses crt;
Var A: Array[0..500] Of integer;
i,n,max: integer;
Begin
clrscr;
write('nhap n=');
readln(n);
For i:=1 To n Do
Begin
write('nhap A[',i,']=');
readln(A[i]);
End;
max := A[1];
For i:=1 To n Do
If A[i]>max Then max := A[i];
writeln('so lon nhat la:',max);
readln
End.