Написать программу вычисляющую значение функции

const a=-11;
      b=0;
      h=0.1;
var x:real;
begin
x:=a;
while x<=b do
 begin
  write('x=',x:4:1);
  if x<-9 then writeln(' y=',58*sin(x)/cos(x):6:3)
  else if x<-2 then writeln(' y не определено')
  else writeln(' y=',100-x*x:6:3);
  x:=x+h;
 end;
end.

Program Help;
const a=-11;
      b=0;
      h=0.1;
var x:real;
begin
x:=a;
while x<=b do
 begin
  write('x=',x:4:1);
  if x<-9 then writeln(' y=',58*sin(x)/cos(x):4:1)
  else
  if x<-2 then
  begin
  if x<0 then writeln('y=Nan')
  else
  writeln('у=',ln(x)/ln(10)*sin(x)-exp(ln(2.7)*x));
  end
  else writeln(' y=',100-x*x:4:1);
  x:=x+h;
 end;
end.

const a=-11;
      b=0;
      h=0.1;
var x:real;
begin
x:=a;
while x<=b do
 begin
  write('x=',x:5:1);
  if x<-9 then writeln(' y=',58*sin(x)/cos(x):10:4)
  else
  if x<=-2 then  writeln('y=Nan') //от -9 до -2 y не определен
  else writeln(' y=',100-x*x:10:4);
  x:=x+h;
 end;
end.

if x<-9.01 then writeln(' y=',58*sin(x)/cos(x):10:4)
  else
  if x<-1.99 then  writeln('y=Nan') //от -9 до -2 y не определен
  else writeln(' y=',100-x*x:10:4);