Валгоритме, записанном ниже, используются две переменные a и b.

//pascalabc.net 3.1 сборка 1200 begin       var n : = readinteger('n =');       var x : = arrrandom(n, -99, 99);       x.println;       var y : = arrrandom(n, -99, 99);       y.println;             for var i : = low(x) to high(x) do               if y[i] > x[i] then swap(y[i], x[i]);             writeln();       x.println;       y.println; end.

// pascalabc.net 3.3, сборка 1611 от 06.01.2018 // внимание! если программа не работает, обновите версию! begin var eps : = 0.001; var (s,tmp): = (1.0,0.0); var i : = 1; var k : = 2.0; var (a, fib): = (1,2); while (abs(s-tmp) > eps)do   begin       tmp: = s;       s+= k / (fib * 3**i );       inc(i); k: = (abs(k) + 2)*k/abs(k); k *= -1;             (a,fib) : = (fib, a + fib);   end;   writeln(s); end.