Составить программу вычисления значений функции F(x) на отрезке [а; b] с шагом h. Результат представить в виде таблицы, первый столбец которой — значения аргумента, второй — соответствующие значения функции: F(X)=1/2 sin x/4+1

program Table;uses math; //подключаем математический модуль, возможно с модулем я ошибсяvar  // объявляем локальные переменные для программы    a , b, h : Real; //указывает дробный тип числаfunction calculate_f( x: Real) : Real; //объявляем функцию в теле программыbegin    calculate_f := 1/2*sin(x/4+1) ;   //записываем результат вычисления в функциюend;Begin    a := -0.99; //определяем    b :=  50.0;  //вводные    h := 0.1; //значения    while a < b do begin //пока "a" меньше "b"        writeln("F(", a, ') = ', calculate_f(a)); //выводим результат вычислений в строку        a := a + h; //прибавляем шаг "h"    end;end.Я могу и ошибиться, потому что писал на Паскале оочень давно :DПоэтому Вам прийдется поправить некоторые ошибки в коде.