Составить программу вычислений функции с постоянными параметрами. - PascalABC.NET

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

Нужно сделать элементарную лабу по информатике но я слишком молод и глуп что бы осилить это, помогите пожалуйста Составить программу вычислений функции с постоянными параметрами. По указанию преподавателя вывод результата осуществить форматным или бесформатным способом. Следует учитывать, что некоторые параметры могут быть заданы в градусной или радианной мерах. В первом случае ее следует перевести в радианную меру, используя формулу Х=Х*(3.14/180). Заранее спасибо!

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

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

const a=0.2;
      b=37.68;
      p=10.79;
      g=2.8237;
      x0=0.1;
      dx=0.1333;
var x,y:real;
begin
x:=x0;
while x<2.5+dx/2 do //правая граница интервала или число шагов не заданы, взял с потолка=2.5
 begin
  if x<=0.9 then y:=sqrt(1+x*x)+a*sin(b*x)
  else if x<=1.8 then y:=(exp(x)-exp(-x))/(exp(x)+exp(-x))
  else y:=sqrt(b)-0.2*cos(p*x)-sin(g*x);
  writeln('x=',x:6:4,' y=',y:6:4);
  x:=x+dx;
 end;
end.

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

Объявляются константы: a=0.2, b=37.68, p=10.79, g=2.8237, x0=0.1, dx=0.1333.
Объявляются переменные x, y с типом real.
Инициализируется переменная x значением x0.
Задается условие цикла while: x<2.5+dx/2.
В каждой итерации цикла, если x<=0.9, то y вычисляется как sqrt(1+xx)+asin(b*x).
Если x<=1.8, то y вычисляется как (exp(x)-exp(-x))/(exp(x)+exp(-x)).
В противном случае, y вычисляется как sqrt(b)-0.2cos(px)-sin(g*x).
Выводится значение x и y с точностью до 4 знаков после запятой.
Значение x увеличивается на dx.
Цикл продолжается до тех пор, пока условие while выполняется.
Конец программы.