Составить табуляцию функции y=sin(2.5x)+sqrt(sin(2.5))/sqrt(sin(x))- Pascal(Паскаль)

{
y=sin(2.5x)+sqrt(sin(2.5))/sqrt(sin(x))
}
program tab;
uses crt;
var x,step,a,b: real;
 
function F(x: real): real;
var y: real;
begin
 y:=sin(2.5*x)+sqrt(sin(2.5))/sqrt(sin(x));
 F:=y;
end;
 
procedure Fun(x: real; a,b, step: real);
var i: integer;
    y: real;
begin
 x:=a;
 
 while (x<=b) do
 begin
  if (sin(x)<0) then writeln('X = ',x,' -> Division by zero!')
  else writeln('X = ',x,' -> Fun = ',F(x));
  x:=x+step;
 end;
end;
 
Begin
 write('Enter a, b and step: ');
 read(a); read(b); readln(step);
 Fun(x,a,b,step);
End.