Program ciklp_3-

Uses Crt-

Var n,i:longint-

BEGIN

ClrScr-

Write(‘Введите число…’)-

Readln(n)-

Write(‘Делители числа ‘,n,’ : ‘)-

i:=1-

repeat

if n mod i = 0

then Write(i,’ ‘)-

Inc(i)-

until i&gt-n-

readln-

END.