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

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

Вычислить P=(b-x)f(n)+(b-x)F(n+1)+(b-x)f(n+2) где функция пользователя f(a)=2ab/a+bx n=3 x=0,1264 b=0,4 Помогите пожалуйста написать программу на Паскале. Срочно!

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

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

const n=3;
      x=0.1264;
      b=0.4;
function f(a:real):real;
begin
f:=2*a*b/(a+b*x);
end;
var p:real;
begin
p:=(b-x)*f(n)+(b-x)+f(n+1)+(b-x)*f(n+2);
write('P=',p:0:4);
end.

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

const n=3; - объявляется константа n равная 3
x=0.1264; - объявляется переменная x и присваивается ей значение 0.1264
b=0.4; - объявляется переменная b и присваивается ей значение 0.4
function f(a:real):real; - объявляется функция f, которая принимает один аргумент a типа real и возвращает значение типа real
begin - начинается блок кода
f:=2ab/(a+b*x); - вычисляется значение функции f
end; - заканчивается блок кода функции f
var p:real; - объявляется переменная p типа real
begin - начинается блок кода
p:=(b-x)f(n)+(b-x)+f(n+1)+(b-x)f(n+2); - вычисляется значение переменной p
write('P=',p:0:4); - выводится значение переменной p на экран
end. - заканчивается блок кода переменной p