program Suma_szescianow_cyfr;
uses crt;
var liczba,cyfra,suma,i:longInt;
    key:char;
begin
  clrScr;
  liczba:=123;
  write(liczba,' -> ');
  repeat
    suma:=0;
    repeat
        cyfra:=liczba mod 10;
        suma:=suma+cyfra*cyfra*cyfra;
        liczba:=liczba div 10;
    until liczba=0;
    write(suma,' -> ');
    liczba:=suma;
    key:=readKey;
  until (key=#27);
end.