Program Tin_hoc;
uses crt;
var i,max,n:integer;
a: array[1..10000] of integer;
begin
clrscr;
Write('Nhap so phan tu cua mang: ');readln(n);
writeln('Nhap cac phan tu cua mang:');
for i:= 1 to n do readln(a[i]);
i:=1;max:=a[1];
while i <= n do
begin
If max < a[i] then max:=a[i];
i:=i+1;
end;
writeln('Max = ',max);
readln;
end.