Вычислить значения выражения - Pascal ABC

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

Помогите запрограммировать 1 задачу, дальше по аналогии сам попробую=)

Решение задачи: «Вычислить значения выражения»

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

function f(x:real):real;
var l,m:real;
begin
if x<=2 then l:=x*x+2*cos(x)
else l:=(x*x*x+exp(x))/(2*x); //или х*х, не видно степень 2 или 3
m:=(l+2)/x;                   //плохо видно второе слагаемое в числителе
f:=3*l-2*m;                   // вроде e^x
end;
begin
writeln('При х=1 К=',f(1):0:3);
writeln('При х=4 К=',f(4):0:3);
writeln('При х=8 К=',f(8):0:3);
end.

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

Создается функция f, которая принимает один аргумент типа real и возвращает значение типа real.
В функции объявляются две переменные типа real: l и m.
В условии if используется оператор сравнения <= для проверки значения аргумента x. Если значение x меньше или равно 2, то выполняется блок кода внутри фигурных скобок.
Внутри блока кода, если значение x меньше или равно 2, то вычисляется значение выражения l := x x + 2 cos(x).
Если значение x больше 2, то вычисляется значение выражения l := (x x x + exp(x)) / (2 * x).
Затем вычисляется значение выражения m := (l + 2) / x.
И наконец, вычисляется значение выражения f := 3 l - 2 m.
В блоке begin-end программы выводятся значения функции f при х=1, х=4 и х=8 с помощью функции writeln.
Код завершается без использования функции return, поэтому значение функции f будет присвоено переменной f.
В конце программы выводится сообщение При х=1 К= на экран.
Значение переменной f при х=1 будет выведено на экран.
Значение переменной f при х=4 будет выведено на экран.
Значение переменной f при х=8 будет выведено на экран.
Программа завершается.