beginwrite('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));readlnend. ПЕРЕВЕСТИ ИЗ ПАСКАЛЯ В КУМИР