Program If5;
Var
A,B,C,k_plus,k_minus:Integer;
Begin
k_plus:=0;
k_minus:=0;
WriteLn('Введите числa A,B и C: ');
ReadLn(A,B,C);
If A > 0 Then
k_plus:=k_plus + 1
Else
k_minus:=k_minus + 1;
 
If B > 0 Then
k_plus:=k_plus + 1
Else
k_minus:=k_minus + 1;
 
If C > 0 Then
k_plus:=k_plus + 1
Else
k_minus:=k_minus + 1;
WriteLn('Количество положительных чисел в исходном наборе:',k_plus);
WriteLn('Количество отрицательных чисел в исходном наборе:',k_minus);
End.