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

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