Перевести программу на !
program qq;
var b,n,z,x,c: integer;
s,a: real;
begin
s: =0; z: =1;
b: =2; n: =2; x: =3; a: =1;
while abs(a)> 0.001 do begin
s: =s+a;
a: =z*b/(n*x);
c: =c*(n-1)+c*(n-2);
x: =x*3;
z: =-z;
b: =b+2;
end;
writeln('s=',s: 10: 3);
end.