var

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

i,n,s:integer;

begin

repeat

write('nhapsophantucuamang');

readln(n);

until (n>=1) and (n

write('nhapmang');

for i:=1 to n do

begin

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

readln(a[i]);

end;

s:=0;

for i:=1 to n do

if A[i]

s:=s+A[i];

write('s=',s);

readln;

end.