Программирование циклов с заданным условием окончания работы

Программирование циклов с заданным условием окончания работы
Общий вид оператора:
repeat <оператор1; оператор2; …; > until <условие>
Здесь:
<оператор1>; <оператор2>; … - операторы, образующие тело цикла;
<условие> - логическое выражение; если оно ложно, то выполняется тело цикла.

program n_15;
var i: integer; x: real;
begin
writeln ('График тренировок');
i:=1;
x:=10; repeat
i:=i+1;
x:=x+0.1*x;
until x>=25;
writeln ('Начиная с ', i, '-го дня спортсмен будет пробегать 25 км')
end.

ЗАДАЧА.
Организуем ввод целых чисел и подсчёт количества введённых положительных и отрицательных чисел. Ввод должен осуществляться до тех пор, пока не будет введён ноль.
В задаче в явном виде задано условие окончания работы.
Воспользуемся оператором repeat.