Неравные в PASCALe, составить поставку,алгоритм и программу выдачи на экран в PASCALe Опции

[martin97270]

составить поставку,алгоритм и программу выдачи на экран в PASCALe неравных 3.2 значений функции t=ln(14.5q/152.9)+Sin5.3q на отрезке [k.w] с шагом z.Когда нажимаю выполнить,просит ввести,k,w,z и потом безостановочно выдает строки с расчетом одним и тем же и не прекращается,бесконечно крч
в чем ошибка
var k,w,z,q,t:real;
begin
repeat
write('Введите начало интервала k>0 k=');
readln(k);
until k>0;
repeat
write('Введите конец интервала w>',k:0:1,' w=');
readln(w);
until w>k;
repeat
write('Введите шаг z<',w-k:0:1,' z=');
readln(z);
until z<w-k;
q:=k;
writeln('Результаты:');
repeat
t:=ln(14.5*q/152.9)+sin(5.3*q);
if t<>3.2 then writeln('При q=',q:0:2,' t=',t:6:2);
q:=q+z;
until q>w;
end.

[Федосеев Павел]

Ничего не менял. Получил такие результаты - всё работает.

Код

Введите начало интервала k>0 k=1
Введите конец интервала w>1.0 w=5
Введите шаг z<4.0 z=1
Результаты:
При q=1.00 t= -3.19
При q=2.00 t= -2.59
При q=3.00 t= -1.45
При q=4.00 t= -0.26
При q=5.00 t=  0.23