Определите количество различных символов в пятиричной записи числа 2×5^43+3×5^18-2×5^7​

Если не разделять понятия неотрицательных и положительных, то этот код:
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.

В предыдущем вопросе я написала решение.
program z;
var a,b,c,d,e,x,g,h:integer;
begin
write('Введите пятизначное число');
read(x);
a:= x mod 10;
b:= x mod 100;
b:= b div 10;
c:= x mod 1000;
c:= c div 100;
d:= x mod 10000;
d:= d div 1000;
e:= x mod 100000;
e:= e div 10000;
if a mod 2=0 then h:=a
else g:=a;
if b mod 2=0 then h:=h+b
else g:=g+b;
if c mod 2=0 then h:=h+c
else g:=g+c;
if d mod 2=0 then h:=h+d
else g:=g+d;
if e mod 2=0 then h:=h+e
else g:=g+e;
writeln(' Сумма нечётных цифр равна ', g);
write(' Сумма чётных цифр равна ', h);
end.