Даны целые числа a, b и с. написать программу подсчитывающую кол-во положительных и кол-во отрицательных чисел среди данных. входные данные -2 4 -1 выходные 2 1. (язык программирования Паскаль АБС)

Предыдущий
вопрос Следующий
вопрос

program CountPosNeg;
var
a, b, c, posCount, negCount: integer;
begin
posCount := 0;
negCount := 0;
writeln('Введите три целых числа:');
readln(a, b, c);
if a > 0 then
posCount := posCount + 1
else if a < 0 then
negCount := negCount + 1;
if b > 0 then
posCount := posCount + 1
else if b < 0 then
negCount := negCount + 1;
if c > 0 then
posCount := posCount + 1
else if c < 0 then
negCount := negCount + 1;
writeln('Количество положительных чисел: ', posCount);
writeln('Количество отрицательных чисел: ', negCount);
end.