Вычисление функции используя оператор цикла с постусловием - Pascal ABC

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

Составить программу вычисления значения функции y=sin²Х+1 для аргумента X, изменяющегося на интервале [а, Ь] с заданным шагом h, используя оператор цикла с постусловием.

Решение задачи: «Вычисление функции используя оператор цикла с постусловием»

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

program pr;
 
var
  a, b, x, y, h: real;
 
begin
  writeln('Введите интервал изменения x (a,b)');
  readln(a, b);
  writeln('Введите шаг');
  readln(h);
  x := a;
  repeat 
    y := (sin(x + 1)) * sin(x + 1);
    x := x + h;
    writeln(y);
  until x > b;
end.

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

Программа начинается с объявления переменных a, b, x и y типа real.
Пользователю предлагается ввести интервал изменения переменной x от a до b.
Затем пользователю предлагается ввести шаг для перебора значений x.
Значение переменной x устанавливается равным a.
Цикл repeat начинается.
Внутри цикла переменная y вычисляется как произведение синуса x и синуса (x+1).
Значение переменной x увеличивается на h.
Выводится значение переменной y.
Цикл повторяется, пока значение переменной x не станет больше значения переменной b.
Программа заканчивается.