Z2-NO2

var iter, max_iter: longint;  // Длина ряда и максимальная длина ряда
var pi, pi_calc: real;
begin
    pi := 3.1415926535897932;  // Настоящее значение пи для сравнения.
    max_iter := 1;
    while (trunc(pi_calc*100000) <> trunc(pi*100000)) do begin
    // Этот способ намного лучше предыдущего, всего благодаря длине ряда в 45 уже возможно достичь точности в 5 знаков после запятой,
    // а при длине ряда в 165 уже 7 знаков! Тестирование кода советую делать так же, как и в первом пункте.
        max_iter := max_iter+1;

        pi_calc := 0;

        for iter:=1 to max_iter do begin
            pi_calc := pi_calc + 1/(iter*iter*iter*iter);  // Сначала вычислим сумму ряда данной длины...
        end;
        pi_calc := sqrt(sqrt(90*pi_calc)) // ... а потом уже будем производить остальные вычисления.
    end;
    writeln(max_iter);
end.