Вмассиве, заданном с клавиатуры, найти количество положительных и отрицательных элементов.

Var a,n,m:integer;
begin
n:=0;
m:=0;
readln(a);
while a<>0 do
begin
if (a<0)then n:=n+1 else m:=m+1;
readln(a);
end;
writeln(n);
writeln(m);
end.