Запишите на турбо Паскаль cos²|y-√cos x| ​

const n= 100 ;

var

a,b,x,r,c : real ;

i: integer;

begin

writeln ('введите x') ;

readln (x);

b:=1;

c:=-1;

r:=0 ;

for i:=0 to (n) do begin

a:= exp ((2*i)*ln(x));

if i = 0 then b:=1 else

b:= b*(2*i) ;

c:=c*(-1);

r:= a*c/b+r;

end;

writeln ('ответ : ',r);

end.

Объяснение: