Что ту не так я написал? уже пробовал писать разными способами

1)Program ti;

uses crt;

var m,n,X,Xk,h,i:integer;

Y:real;

const t=1e-9;

Begin

Writeln('Vvedite Xn,Xk i h');

Writeln('Xn');

read(X);

Writeln('Xk');

read(Xk);

Writeln('H');

read(h);

m:=x;

n:=Xk;

Repeat

begin

While
X<=-3.5 do

if x<1 then
writeln('Logarifm otrizatelen')

else


Y:=exp(2*ln(ln(x/(1-x))));

While (x>-3)
and (x<0) do

if x<-t
then writeln('Coren otrecatelen')

else


Y:=x*cos(x*sqrt(x));

While (x>0)
and (X<=2) do

if x=5 then
writeln('Znamenatel otricatelen')

else


Y:=exp(3*ln(cos(x/(5-x))));

While X>3 do

if X=3 then
writeln('Znamenatel otricatelen')

else


Y:=x*(exp((sqr(x)-9)/2));

end;

Writeln('Pri X=',X,' Y=',Y:7:4);

m:=m+h;

X:=X+h;

until (M=n) or (m>n);

readkey;

clrscr;

end.

2) ВариантProgram i;uses crt;var m,n,X,Xk,h,i:integer;Y:real;const t=1e-9;BeginWriteln('Vvedite Xn,Xk i h');Writeln('Xn');read(X);Writeln('Xk');read(Xk);Writeln('H');read(h);m:=x;n:=Xk;While m<= n
do begin While
X<=-3.5 do if x<1 then
writeln('Logarifm otrizatelen') else
Y:=exp(2*ln(ln(x/(1-x)))); While (x>-3)
and (x<0) do if x<-t
then writeln('Coren otrecatelen') else
Y:=x*cos(x*sqrt(x)); While (x>0)
and (X<=2) do if x=5 then
writeln('Znamenatel otricatelen') else
Y:=exp(3*ln(cos(x/(5-x)))); While X>3 do if X=3 then
writeln('Znamenatel otricatelen') else
Y:=x*(exp((sqr(x)-9)/2));Writeln('Pri X=',X,' Y=',Y:7:4);m:=m+h;X:=X+h;end;readkey;clrscr;

end.