Исправьте program pr1; var f,x,pi,a,ak,an,da: real; begin write ('введите an,ak,da'); readln (an,ak,da); a: =an; while a< =ak+0.0001 do begin pi: = 3.14; x: =exp(a)+exp(-a); f: =0.5x-2cos(x)(x+pi/4); writeln('x=',x,'f=',f); a: =a+da; end; end.

Замени строчку f:=0.5x-2cos(x)(x+Pi/4);  на f:=0.5*x-2cos(x)*(x+Pi/4);
Без знака умножения не пойдет.
И  write ('введите an,ak,da');  лучше на writeln ('введите an,ak,da');