{* Натуральные делители *}

Unit Z_NUMBER;
Interface
Implementation
Begin
 writeln('Количество натуральных делителей числа 90');
End.

Program z_number;

Uses z_number.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* В работе нам потребуются переменные: *}
  k : byte;
  i : byte;
Begin
  clrscr; {* Очистка экрана *}
  k := 0;
  For i := 1 To 90 Do {* Переменная i увеличивается с 1 до 90 *}
    If 90 Mod i = 0 Then
      inc(k); {* k++ *}
  writeln('Количество натуральных делителей числа 90');
  writeln(k);
  readln; {* Ждем нажатия Enter *}
End.