uses crt;
var M:array[1..1000] of integer;
n,i,max:integer;
begin
clrscr;
write('Nhap so luong phan tu: '); readln(n);
for i:=1 to n do
begin
write('m[',i,']= '); readln(m[i]);
end;
max:=m[1];
for i:=2 to n do
if m[i]>max then max:=m[i];
writeln('So lon nhat la: ',max);
readln;
end.