Составить программу используя оператор цикла с предусловием

[Квитокс]

Ребят, помогите составить, только через object, без массивов.

Вычислить количество отрицательных значений на интервале [a, b] с заданным шагом.

[Stilet]

Это называется "Я не в курсе чего хочу, но то что вы предложите не подойдет".
Сам то ты как понимаешь свое задание?

[Квитокс]

Программу нужно составить, используя оператор цикла с предусловим. Язык онли object paskal.
Собсвенно дано:
Вычислить количество отрицательных значений на интервале [a, b] с заданным шагом.

[Stilet]

Мдя...

var a,b,h:double; c:integer;
begin
 readln(a);readln(b);readln(h);
 while a<=b do begin if a<0 then inc(c); a:=a+h;end;
 write(c);
end;

[Квитокс]

Благодар.ю