помогите написать программу пожалуйста

const eps = 0.00001;
…
up := x;
down := 1;
arctg := 0;
while abs(up / down) > eps do
begin
arctg := arctg + up / down;
up := - up * x * x;
down := down + 2;
end;
writeln(arctg:0:8);