Составить программу расчета таблицы значений функции f(x) - Pascal

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

Здравствуйте, помогите решить, сам гуманитарий) Буду очень благодарен Составить программу расчета таблицы значений функции f(x) на интервале a<=x<=b в n равностоящих точках. Границы интервала a, b и количество точек n ввести с клавиатуры. Результаты вывести на печать. f(x)= exp*(-0.5*x)*sqr(cos(pi*x)) Найти количество положительных значений функции f(x), на заданном интервале.

Решение задачи: «Составить программу расчета таблицы значений функции f(x)»

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

var a,b,h,x,y:real;
    n,i:integer;
begin
repeat
writeln('Введите границы диапазона a<b');
readln(a,b);
until a<b;
write('Введите количество точек n=');
readln(n);
h:=(b-a)/(n-1);
for i:=0 to n-1 do
 begin
  x:=a+i*h;
  y:=exp(-0.5*x)*sqr(cos(pi*x));
  writeln(i+1:2,' x=',x:5:2,' f(x)=',y:5:2);
 end;
end.

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

Переменные a, b, h, x, y объявлены как real (с плавающей точкой), а переменные n, i как integer (целые числа).
Программа запрашивает у пользователя границы диапазона a < b.
Затем программа запрашивает количество точек n.
Значение h вычисляется как (b-a)/(n-1).
В цикле for i от 0 до n-1 выполняется следующая последовательность действий:
- Значение x вычисляется как a + i*h.
- Значение y вычисляется как exp(-0.5x)sqr(cos(pi*x)).
- В каждой итерации цикла выводится на экран значение i+1, значение x и значение y.
Цикл завершается после выполнения всех итераций.
Программа завершается.