Табуляция значений функции F(x) на отрезке [a,b] с шагом h - Turbo Pascal

Формулировка задачи:

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

Решение задачи: «Табуляция значений функции F(x) на отрезке [a,b] с шагом h»

Листинг программы

pogram funk;
var
  a, b, h: real;
  x, y: real;
begin
  write("введите начало отрезка а: ");
  readln(a);
  write("введите конец отрезка b: ");
  readln(b);
  write("введите шаг h: ");
  readln(h);
  x:=a;
  while (x <= b) do
  begin
    y:=sqr(sin(x));
    writeln("x = ", x:4:2, " F(x) = ", y:6:2);
    x:=x+h;
  end;
end.

Объяснение кода листинга программы

Программа начинается с объявления функции-геттера funk.
Объявляются переменные a, b и h типа real.
Объявляются переменные x и y типа real.
Выводится приглашение к вводу начала отрезка a.
Выводится приглашение к вводу конца отрезка b.
Выводится приглашение к вводу шага h.
Значение x устанавливается равным введенному значению a.
Запускается цикл while, условием которого является x <= b.
В цикле вычисляется значение y как квадрат синуса x.
Выводится значение x и y на экран.
Значение x увеличивается на h.
Цикл повторяется, пока x не станет больше или равно b.