Вычисление значения y(x)=5-sin(x) - Turbo Pascal

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

написать программу для вычисления y(x)=5-sin(x) на интервале (0;30) с шагом x=3 алгоритмы циклов построить тремя способами с пред, постусловием и с параметром

написать бок-схему к данной программе со всеми вариантами циклов

PROGRAM MA;
uses crt;
var a,b,h,x,y:real;
    n:integer;
begin
clrscr;
repeat
write('Введите начало интервала a=');
readln(a);
until a=0;
repeat
write('Введите конец интервала b>',a:0:1,' b=');
readln(b);
until b>a;
repeat
write('Введите шаг табуляции h<',b-a:0:1,' h=');
readln(h);
until h<b-a;
clrscr;
writeln('Табулирование функции y=5-sin(x)');
writeln('на интервале [',a:0:1,';',b:0:1,'] с шагом ',h:0:1);
writeln('--------------------');
writeln('|  № |  X  |   Y   |');
writeln('--------------------');
x:=a;
n:=1;
while x<b+h/2 do
 begin
  y:=5-sin(x);
  writeln('|',n:3,' |',x:4:1,' |',y:6:2,' |');
  n:=n+1;
  x:=x+h;
 end;
writeln('--------------------');
readln
end.

но не вычисляет нужную функцию

Решение задачи: «Вычисление значения y(x)=5-sin(x)»

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

program MA;
 
var
  a, b, h, x, y: real;
  n: integer;
 
begin
  a := 0;
  h := 3;
  b := 30;
  writeln('Табулирование функции y=5-sin(x)');
  writeln('на интервале [', a:0:1, ';', b:0:1, '] с шагом ', h:0:1);
  writeln('--------------------');
  writeln('|  № |  X  |   Y   |');
  writeln('--------------------');
  x := a;
  n := 1;
  while x < b do
  begin
    y := 5 - sin(x);
    writeln('|', n:3, ' |', x:4:1, ' |', y:6:2, ' |');
    n := n + 1;
    x := x + h;
  end;
  writeln('--------------------');
  readln;
end.

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

В этом коде:

Объявляются переменные a, b, h, x, y типа real и переменная n типа integer.
Задаются значения переменных a, h и b.
Выводится заголовок таблицы.
В цикле while вычисляется значение y по формуле y=5-sin(x) и выводится строка таблицы с номером, значением x и значением y.
Увеличивается значение переменной n на единицу.
Увеличивается значение переменной x на шаг h.
Цикл повторяется до тех пор, пока значение x меньше значения b.
Выводится нижняя горизонтальная линия таблицы.
Программа ожидает ввода пользователя для завершения работы.