Pi

[kletka-v-lineyku]

Ой, что я делаю... Я вычисляю Пи в Паскале... Мне больше нечего делать и поэтому я вычисляю Пи. Вычисли Пи до тысячного знака. Вычисли Пи до миллионного знака. Вычисли Пи полностью!

var
__pi: real;
__n: integer;
begin
__read(n);
__for a:integer := 0 to n*1000000 do begin
____pi += 4*power((-1),a)/(2 * a + 1);
____if a mod 1000000 = 0 then writeln('Шаг ', int(a/1000000));
__end;
writeln('Pi = ', pi);
end.

Формула Лейбница с попыткой настроить точность.