{* Задача 265 *}

Unit ZADACH265;
Interface
Implementation
Begin
 writeln('Дано два числа. Определить какое число имеет больше делителей.');
End.

Program zadacha_1;

Uses zadach265.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Необходимые переменные *}
  a  : integer;
  b  : integer; {два числа}
  k1 : integer;
  k2 : integer; {количество делителей чисел}
  i  : integer; {переменная счетчик}
Begin
  clrscr; {* Очищаем экран *}
  writeln('Введите два числа');
  readln(a, b);
  For i := 1 To a Do {* Переменная i увеличивается с 1 до a *}
  Begin
    If a Mod i = 0 Then
      k1 := k1 + 1;
  End;
  writeln('Количество делителей числа ', a, ' равно ', k1);
  For i := 1 To b Do {* Переменная i увеличивается с 1 до b *}
  Begin
    If b Mod i = 0 Then
      k2 := k2 + 1;
  End;
  writeln('Количество делителей числа ', b, ' равно ', k2);
  If k1 > k2 Then
  Begin
    writeln('Число ', a, ' имеет больше делителей')
  End;
  Else Begin
    writeln('Число ', b, ' имеет больше делителей')
End;
  readln; {* Ждем подтверждения пользователя *}
  End...