var

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

d,i,n:integer;

begin

repeat

writeln('nhapsophantucuamang');

readln(n);

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

write('nhapmang');

for i:=1 to n do

begin

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

readln(a[i]);

end;

d:=0;

for i:=1 to n do

if a[i]<0 then

d:=d+1;

writeln('sophantuamla:',d);

readln;

end.