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

спасибо

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