uses crt;
var a,i:integer;
A:array [1..100] of integer;
begin
clrscr;
write('Nhap n= '); readln(n);
for i:=1 to n do
begin
write('Phan tu thu ',i,'=');
readln (A[i]);
end;
max :=A[i]; max=1;
for i:=2 to n do
if A[i]>max then
begin
max=A[i]
end;
writeln('Gia tri max = ',max:2:2);
readln;
end.