Написать по блок-схеме программу на языке Паскаль. Ниже фото

Ответ: Код есть только немного на другой алгоритм, он похож, можешь удалить не нужные коды алгоритма!

Похожий алгоритм прикрепил!

КОД:

1

2

3

4

5

6

7

8

9

10

11

12

var x,k1,k2:integer;

begin

writeln('Вводите целые положительные и отрицательные числа конец ввода 0');

k1:=0;

k2:=0;

repeat

readln(x);

if x<0 then inc(k1)

else if x>0 then inc(k2);

until x=0;

write('Количество отрицательных=',k1,' количество положительных=',k2);

end.

Объяснение: