Паскаль Дано n – натуральное число. Вывести на экран все числа, кубы которых не пр

Var n,i:integer; begin write('n = '); readln(n); i:=1; while i*i*i<=n do  begin  writeln(i,'  ',i*i*i);  i:=i+1;  end; end. Пример: n = 200 1  1 2  8 3  27 4  64 5  125