Составить программу расчёта выражения - Free Pascal

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

2.Составить программу расчёта данного выражения: Расчёт значения модуля оформить в виде функции

Решение задачи: «Составить программу расчёта выражения»

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

var
  x,y:real;
 
function modul(x:real):real;
begin
  if x>=0 then
    modul:=x
  else
    modul:=-x;
end;
 
begin
  readln(x);
  y:=(modul(x*x-6*x)+2*modul(x))/(modul(x*x*x+3*x*x-5*x)+4);
  writeln(y);
end.

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

В коде определены две переменные типа real: x и y.
Определена функция modul(x:real), которая вычисляет модуль числа x.
В функции modul(x:real) используется условный оператор if для определения знака числа x.
Если x>=0, то функция возвращает x.
Если x<0, то функция возвращает -x.
В основной части программы происходит считывание значения переменной x с помощью функции readln().
Значение переменной y вычисляется по формуле: y=(modul(xx-6x)+2modul(x))/(modul(xxx+3xx-5x)+4).
Значение переменной y выводится на экран с помощью функции writeln().