Cоставить программу вычисления значений функций f(x) на отрезке a; b с шагом h. результат представить в виде таблицы , первый столбец которой - значения аргумента, второй - соответствующие значения функции. f(x)=x^2 *sin^2x +1

Var a,b,h,f,x:real;
begin
write('Введите а и b: ');
readln(a,b);
write('Введите h: ');
readln(h);
x:=a;
write('x:':8);
while x<=b do
  begin
  write(x:8:2);
  x:=x+h;
  end;
writeln;
write('F(x):':8);
x:=a;
while x<=b do
  begin
  f:=x*x*sqr(sin(x))+1;
  write(f:8:3);
  x:=x+h;
  end;
end.