program sln;
var i,n,SLN:integer;
a:array[1..100] of integer;
begin
write('nhap n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
SLN:=a[1];
for i:=2 to n do if SLN < a[i] then SLN:=a[i];
write('so lon nhat la:',SLN);
readln
end.