function CalculatePi(Iteraciok: Cardinal):Extended;
var Szamlalo:Cardinal;
    Nevezo:integer;
begin
  Szamlalo:=0;
  Nevezo:=3;
  Result:=1;
  repeat
    case Odd(Szamlalo) of
      True: Result:=Result+(1/Nevezo);
      False: Result:=Result-(1/Nevezo);
    end;
    Inc(Szamlalo);
    Nevezo:=Nevezo+2;
  until Szamlalo>=Iteraciok ;
  Result:=Result*4;
end;