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.
ПЕРЕВЕСТИ ИЗ ПАСКАЛЯ В КУМИР