vara: array[1..5] of integer;p,ot,i:integer;beginp:=0;ot:=0;for i:=1 to 5 doreadln(a[i]);
for i:=1 to 5 do beginif a[i]>0 thenp:=p+1elseot:=ot+1;end;
writeln('polozitelnich=', p, ' otrizatelnich=', ot);end.