Цикл

[oban11]

подскажите почему не правильно работает немогу никак понять что неправильно постоянно выдает не сущ знаменатель = 0 и какое было xn всегда начинает x выдавать с 0 и все значения y не сущ

program;
uses crt;
const t=1e-9;
var xn,xk,x,y,ch,zn :real;
Begin
write('input xn,xk,h=');
readln(xn,xk,h);
while x<xk+t do
begin
if abs(zn)>t then
begin
if x>t then
begin
zn:=3.5*x-ln(x);
zn:=abs(zn)/zn*exp(ln(abs(zn))/5);
if sin(4*x)>t then
begin
ch:=(6.35*x*x*x-exp(x))*(x-cos(4*x)/sin(4*x));
y:=ch/zn;
writeln('x=',x:9:5,' y=',y:12:6)
end
else
writeln('x=',x:9:5,' y-no exist.')
end
else
writeln('x=',x:9:5,' y-no exist.')
end
else
writeln('x=',x:9:5,' y-no exist.');
x:=x+h
end;
readln
END.

[mihali4]

while x<xk+t do
А где задается начальное значение Х ???

[oban11]

я что только не проовал ставил while xn<xn+t do тогда он начинает переирать все числа безостановочно при этом y всеравно показывает на всех значениях x не сущ потому что zn=0