Составить программу по блок-схеме - Free Pascal

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

Друзья, помогите пожалуйста. Надо написать программу по этой блок-схеме. F(x)=2^x-2*cos(x) И надо будет вставить эту формулу туда, выручайте, последняя надежда на вас. XiUD7AymW_4.jpg

Решение задачи: «Составить программу по блок-схеме»

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

function f(x:real):real;
begin
f:=exp(ln(2)*x)-2*cos(x);
end;
var a,b,h,s,x,i:real;
    n:integer;
begin
writeln('Введите начало, конец интервала и количество точек');
readln(a,b,n);
h:=(b-a)/n;
s:=0;
x:=a+h;
repeat
s:=s+f(x);
x:=x+h;
until x>b;
i:=h*s;
write('Количество точек n=',n,' Интеграл=',i:0:3);{нафига выводить n, если его сами и ввели?}
readln
end.

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

Объявление функции f(x) с типом real
Выражение для функции f(x)
Объявление переменных a, b, h, s, x, i с типом real
Объявление переменной n с типом integer
Вывод сообщения с просьбой ввести начало, конец интервала и количество точек
Считывание значений переменных a, b, n с помощью функции readln
Вычисление шага h
Инициализация переменной s значением 0
Вычисление переменной x как суммы a и h
Повторение цикла для вычисления суммы f(x) от a до b с шагом h
Вычисление значения i как произведения h на сумму f(x)
Вывод сообщения с количеством точек n и значением интеграла i
Чтение символа для завершения работы программы