var a: array[1..100] of integer;
max: integer; n, i: byte;
Begin
Write('n = '); readln(n);
For i:=1 to n do
Begin
Write('nhap so thu ', i); readln(a[i]);
End;
Max:=a[1];
For i:=2 to n do if a[i]>max then
Max:=a[i];
Write('so lon nhat: ', max);
Readln
End.