Исправьте пожалуйста Program pr1; var f,x,Pi,a,ak,an,da:real; begin write ('введите an,ak,da'); readln (an,ak,da); a:=an;
Виктор изюмский
Замени строчку f:=0.5x-2cos(x)(x+Pi/4); на <span>f:=0.5*x-2cos(x)*(x+Pi/4);
Без знака умножения не пойдет.
И </span>write ('введите an,ak,da'); лучше на <span>writeln ('введите an,ak,da'); </span>