{* Задача 91 *}

Unit ZADACH91;
Interface
Implementation
Begin
 writeln('Найти все простые делители натурального числа n.');
End.

Program zadach91;

Uses zadach91.pas; {* Эту строку можно удалить *}
Uses Crt; {* Подключаем внешние файлы *}
Var {* Необходимые переменные *}
  n : longint;
  i : longint;
Begin
  ClrScr; {* Стираем всё с экрана *}
  Write('Введите число...');
  Readln(n);
  Write('Делители числа ', n, ' : ');
  i := 2;
  While n1 Do
  Begin
    If n Mod i = 0 Then
    Begin
      Write(i, ' ');
      Repeat    n := n Div i
        Until n Mod i  0;
    End;
    inc(i); {* i++ *}
  End;
  
End.