Program cikl_16-

Uses crt-

Var n:longint-

Begin

ClrScr-

Writeln(‘введите число’)- readln(n)-

While n&gt-5 do

N:= n div 5-

If n=5 then writeln(‘является степенью 5’) else writeln(‘не является степенью 5’)-

Readln-

End.