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

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
  c, t, q, k, w, z: real;
 
begin
  writeln('Введите интервал.');
  write('Введите k: ');
  readln(k);
  write('Введите w: ');
  readln(w);
  if k > w then
    writeln('w должен быть больше k!');
  write('Введите шаг z: ');
  readln(z);
  c := k;
  // Чему равно q????
  //q:=1;
  writeln('Результаты:');
  repeat
    t := ln(14.5 * q / 152.9) + Sin(5.3 * q);
    if t <> 3.2 then 
      writeln('При с = ', c:10:2, ', t = ', t:10:2);
    c := c + z;
  until c > w;
end.

program p1;
var t,q,k,w,z:real;
begin
repeat
writeln('Введите k');
readln(k);
writeln('Введите w');
readln(w);
if k>w then
writeln('а должен быть больше k');
until k<=w;
begin
writeln('Введите шаг z');
readln(z);
q:=w;
writeln('Результаты:');
repeat
begin
t:=ln((14.5*q /152.9)+ (Sin*5.3*q) );
if t<>3.2 then writeln('при q=',q,'t=',t:10:2);
q:=q+z;
end;
until q<=k;
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.

uses crt;
var S:array [1..13] of integer;
sum,i:integer;
begin
write('Введите 13 чисел ');
Sum:=0;
for i:=1 to 13 do
 begin
  readln(S[i]);
  if(i>1)and(S[i]<S[i-1]) then sum:=sum+s[i];
 end;
write('Sum=',Sum);
readkey;
end.

uses crt;
const n=13;
var S:array [1..n] of integer;
    sum,i:integer;
begin
clrscr;//если Турбо или Фри Паскаль
write('Введите ',n,' целых чисел');
Sum:=0;
for i:=1 to n do
 begin
  readln(S[i]);
  if(i>1)and(S[i]<S[i-1]) then sum:=sum+s[i];
end;
write('Sum=',Sum);
readkey;
end.