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

Var x, otrc, poloz: integer;
begin
repeat
write(Введите число: );
readln(x);
if x > 0 then inc(poloz);
if x until x = 0;
writeln(Количество положительных чисел: , poloz);
writeln(Количество отрицательных чисел: , otrc);
end.