Program n_1;
var i, a, b:integer; n: real;
begin
a:=0; b:=0;
for i:=1 to 20 do begin
read(n);
if n>0 then a:=a+1 else if n<0 then b:=b+1;</p>
end;
writeln('Из 20 введенных чисел ', a, ' положительных(ое) и ', b, ' отрицательных(ое).');
end.
P.S. 0 не принято считать положительным или отрцательным числом.