Составить программу для вычисления значений функции f(x) на отрезке [a,b] с шагом h. результат представить в виде таблицы, первый столбец которой-значение аргумента,второй-соответствующие значения функции f(x)=sinx*sinx

uses crt;
var a, b, h, f, x:real;
begin 
 writeln ('введите a, b');
  readln (a, b); 
 if a>b then h:=a-b
else h:=b-a;  x:=h; 
 f:=sin(x)*sin(x); 
 writeln; 
 writeln('|---||'); 
 writeln('|x', '  | ' ' f   |');
  writeln('|---||'); 
 writeln('|',x,'  |', f:6:2,'|');
  writeln('|---||'); 
 x:=x+h;
end.