Цикл во фрагменте
программы:
а:=0,3;
S:=0;
i:=1;
repeat
i:=i+1;
b:=1/i;
S:=S+а;
until b<a;
выполнится:​

public class prosto {

public static void main(String[] args) throws IOException {

// TODO Auto-generated method stub

System.out.println("Программа определения простого числа");

System.out.println("");

int n, s=0, i=2;

System.out.println("Введите натуральное число (>0)>");

Scanner scan = new Scanner(System.in);

n = scan.nextInt();

if (n==1) System.out.println(n+" - число не просто и не составное");

else

{

while (i*i <= n) {

if (n % i == 0) ++s;

++i;

}

if (s == 0) System.out.println(n+" - простое число!");

else System.out.println(n + " - составное число!");

}

System.out.println(i-2+" - итераций");

System.out.print("Нажмите ENTER для выхода...");

System.in.read(); //задержка (аналог system("PAUSE") в C++)

scan.close();

}

}

//PascalABC.NET 3.2 сборка 1318

Var
  n,i,j,resi,resj,flag:integer;
begin
flag:=0;
i:=1;
readln(n);
while power(i,3)<n do
  begin
    j:=1;
    while power(j,3)+power(i,3)<=n do
      begin
        if power(j,3)+power(i,3)=n then
        begin
          flag:=1;
          resi:=i;
          resj:=j;
          break;
        end;
        inc(j);
      end;
    if flag=1 then break;
    inc(i);
  end;
if flag=1 then writeln(resi,' ',resj,' ',resj,' ',resi) else writeln('impossible');
end.

Пример ввода:
1008                           //2^3+10^3
Пример вывода:
2 10 10 2