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

const a=2.5;
var y,x:real;
 
begin
  write('Введите x, принадлежащий [1..5]:');
  readln(x);
  if (x>a) then
    y:=x*power(x-a,1/7)+exp(-2*sqr(x))
  else
    if (x=a) then
      y:=x*sin(a*x)+1/tan(x)
    else
      y:=exp(-a*x)*cos(a*x)+ln(abs((x+1)/sqr(x)));
  writeln('y = ',y:1:4);
end.

const a=2.5;
      h=0.3;
var x,f:real;
begin
x:=1;
while x<5 do
 begin
  if x<a then f:=exp(-a*x)*cos(a*x)+ln((x+0.1)/x/x)
  else if x=a then f:=x*sin(a*x)+cos(x)/sin(x)
  else f:=x*power(x-a,1/7)+exp(-2*x*x);
  writeln('x=',x:4:1,' f=',f:6:3);
  x:=x+h;
 end;
end.

const x=sqrt(x)*arctg(sqrt(z));
      h=0.2;
var z,y:real;
begin
x:=2;
while x<5 do
 begin
  if x<=0.5 then y:= (1-1/x)*exp(-x);
  else y:= (x*exp(x))/((x+1)(x+1));
   end;
  writeln('z=',x:3:2,' y=',y:6:2);
end.

const x=sqrt(z)*arctg(sqrt(z));
      h=0.2;
var z,y:real;
begin
x:=2;
while x<5 do
 begin
  if x<=0.5 then y:= (1-1/x)*exp(-x)
  else y:= (x*exp(x))/((x+1)(x+1));
   end;
  writeln('z=',x:4:1,' y=',y:6:3);
end.

else if x=a then f:=x*sin(a*x)+cos(x)/sin(x)
  else f:=x*power(x-a,1/7)+exp(-2*x*x);
  writeln('x=',x:4:1,' f=',f:6:3);
  x:=x+h;
 end;

program n_1;
      var z,y:real;
const 
      h=0.2;
      x= sqrt(z)*arctan(sqrt(z));
begin
z:=2;
while z<5 do
 begin
  if x<=0.5 then y:= (1-1/x)*exp(-x)
  else y:= (x*exp(x))/((x+1)(x+1));
  writeln('z=',x:4:1,' y=',y:6:3);
  z:=z+h;
  end;
end.