С помощью лома и какой-то там матери, у меня получилось вот такое решение
Код:
var
p,h,x0,y:real;
n,i,k:integer;
begin
write ('x0='); {Начальное значение}
readln (x0);
write ('n='); {Количество значений}
readln (n);
write ('h='); {Шаг изменения значения X}
readln (h);
i:=1;
p:=0;
while i<>n do begin
y:=2*cos(5/(4*x0)); {Нахождение f(x)}
x0:=x0+h; {Увеличение значения X}
inc(i);
if y>0 then begin {Выявление положительного значения функции}
p:=p+y; {Нахождение суммы f(x) удовлетворяющих условию}
inc(k);
end;
end;
p:=p/k;
write ('Среднее значение функции',p);
readln
end.
Но я не совсем уверен.