Решить систему из 4-х уравнений - Pascal

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

помогите написать в паскале пожалуйста!!!!

Решение задачи: «Решить систему из 4-х уравнений»

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

function f(x:real):real;
begin
       if (5<=x)  and (x<=10) then f:=a-sin(x) else
          if x<=15 then f:=b/2/(1+cos(x)) else
             if x<=20 then f:=a/3/tan(x) else
                f:=1/sqrt(tan(x));
end;

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

В данном коде представлена функция, которая вычисляет значение функции для заданного значения переменной x. Список действий, выполняемых в коде:

Проверка диапазона значения x.
Если x находится в диапазоне от 5 до 10, то присваивается значение функции равное a - sin(x).
Если x находится в диапазоне от 15 до 20, то присваивается значение функции равное b/2/(1+cos(x)).
Если x находится в диапазоне от 20 до 20, то присваивается значение функции равное a/3/tan(x).
Если x находится в любом диапазоне, то присваивается значение функции равное 1/sqrt(tan(x)). Таким образом, функция вычисляет значение функции для заданного значения переменной x, учитывая четыре различных диапазона значений x и присваивая функции разные значения в каждом из этих диапазонов.