var

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

min,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;

min:=A[i];for i:=1 to n do

if min> A[i] then min:=A[i];

writeln('sonhonhatla:',min);

readln;

end.