program pozitif_negatif;
uses wincrt;
var
ps,ns,n,i:integer;
sayi:longint;
begin
ps:=0;
ns:=0;
writeln('girmek istediginiz sayi adedi:');
readln(n);
for i:=1 to n do
begin
writeln(i,'. sayi=');readln(sayi);
if sayi<0 then ns:=ns+1
else ps:=ps+1;
end;
writeln('pozitif top:=',ps);
writeln('negatif top:',ns);
end.