Написать программу: c клавиатуры последовательно вводятся числа, пока не введут 0. Вывести на экран количество положительных и отрицательных чисел, введенных с клавиатуры.

program zz1;

var x, y, k:integer; / / задаем переменные целого типа

begin

x:=1;

while x 0 do / / организуем цикл, в котором будем вводить числа последовательности, пока не введем ноль

begin

read (x);

if (x >0) then y:=y + 1; / / проверяем, если число последовательности положительное, то считаем его

if (x <0) then k:=k + 1; / / проверяем, если число последовательности отрицательное, то считаем его

end;

write (' количество положительных чисел = ', y, ' количество отрицательных чисел = ', k); / / выводим ответ

end.