Даны три целых числа. найти количество положительных и отрицательных в исходном наборе

Если не разделять понятия неотрицательных и положительных, то этот код: Var A,B,C,P,O:integer; Begin P:=0; O:=0; WriteLn('Введи три числа'); ReadLn(A,B,C); if A>=0 then P:=P+1 else O:=O+1; if B>=0 then P:=P+1 else O:=O+1; if C>=0 then P:=P+1 else O:=O+1; WriteLn('Положительных чисел ',P); WriteLn('Отрицательных чисел ',O) End. Если разделять, то этот: Var A,B,C,P,O,N:integer; Begin P:=0; O:=0; N:=0; WriteLn('Введи три числа'); ReadLn(A,B,C); if A=0 then N:=N+1 else  if A>0 then P:=P+1  else O:=O+1; if B=0 then N:=N+1 else  if B>0 then P:=P+1  else O:=O+1; if C=0 then N:=N+1 else  if C>0 then P:=P+1  else O:=O+1; WriteLn('Положительных чисел ',P); WriteLn('Отрицательных чисел ',O); WriteLn('Нулей ',N) End.