Что ту не так я написал? уже пробовал писать разными способами
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.