Begin write('N = '); readln(N); { Следующий цикл будет выполнятся до тех пор, пока остаток при делении N на d равен 0: } while (N mod d = 0) do { <-- Проверяем делимость на d } N := N div d; { <-- Делим нацело N на d } { На выходе из цикла, если N - степень d, то после многократного деления N на d будет N = 1: } writeln(' ', (N = 1)); readln end. ПЕРЕВЕСТИ ИЗ ПАСКАЛЯ В КУМИР