Составить программу поиска первых n чисел, равных сумме кубов своих цифр. Программа - Паскаль АBC

varn, i, s, x: integer;beginreadln(n); //вводим nfor i:=1 to n do //проверяем каждое число от 1 до nbegins:=0; x:=i;while x > 0 do //находим сумму кубов цифрbegins:=s + (x mod 10) * (x mod 10) * (x mod 10);x:=x div 10;end;if s = i then //если сумма кубов равна i выводим iwriteln(i);end;end.