Вывести на экран значения функции по заданному условию - Pascal

Формулировка задачи:

составить поставку,алгоритм и программу выдачи на экран в PASCALe неравных 3.2 значений функции t=ln(14.5q/152.9)+Sin5.3q на отрезке [k.w] с шагом z

                    Листинг программы
                
 
                        
                          
                    
readln(a);
if a>k then
writeln('а должен быть больше k');
until a>k;
begin
writeln('Введите шаг z');
readln(z);
c:=k;
writeln('Результаты:');
repeat
begin
t:=ln(14.5q /152.9)+Sin 5.3q;
if t<>3.2 then writeln('при с=',c,'t=',t:10:2);
c:=c+z;
end;
until t<=a;
end;
end.

не работает что не так то а:!?!?

Решение задачи: «Вывести на экран значения функции по заданному условию»

Листинг программы

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, w, z, q, t - тип данных real (вещественные числа).
Цикл повторения ввода начала интервала:
- Пользователю выводится сообщение Введите начало интервала k>0 k=, после чего считывается введенное значение в переменную k.
- Цикл повторяется, пока k не будет больше 0.
Цикл повторения ввода конца интервала:
- Пользователю выводится сообщение Введите конец интервала w>, сначала указывается значение k, затем w, и после этого считывается введенное значение в переменную w.
- Цикл повторяется, пока w не станет больше k.
Цикл повторения ввода шага:
- Пользователю выводится сообщение Введите шаг z<, причем значение z указано как разница между w и k, затем считывается введенное значение в переменную z.
- Цикл повторяется, пока z не станет меньше разницы между w и k.
Вычисление и вывод результатов:
- Переменная q устанавливается равной k.
- Выводится сообщение Результаты:.
- Запускается цикл, в котором вычисляется значение функции для каждого значения q в интервале от k до w с шагом z.
- Для каждого вычисленного значения t проверяется, не равно ли оно 3.2, и если нет, то выводится сообщение в формате При q=значение_как_десятичная_дробь t=значение_как_десятичная_дробь.
- Значение q увеличивается на z.
- Цикл продолжается, пока q не превысит w.
Конец программы.