Что записано неверно?

program lab7;
const Eps=0.0001;
pi=3.14;
var s,v,b,x,c:real;
n,i:integer;
begin
n:=500;
repeat
for i:=1 to n do
v:=-1*v;
for i:=1 to 2*n+1 do
b:=pi/3*b;
for i:=1 to 2*n do
c:=1;
c:=c*c;
x:=v*b/c;
s:=0;
s:=s+x;
until s