var

A:array [1..20] of integer;

max,i,n:integer;

repeat

writeln('nhapsophantucuamang');

readln(n);

until(n>=1) and (n<=20);

write('nhapmang');

for i:=1 to n do

write ('A[',i,']=');

readln(A[i]);

end;

max:=A[i];

for i:=1 to n do

if max< A[i] then max:=A[i];

writeln('solonnhatla:',max);

readln;

end.