{* Задача 268 *}

Unit ZADACH268;
Interface
Implementation
Begin
 writeln('Определить пары натуральных чисел a < 100 и b < 100, произведение которых в 10 раз больше их суммы. Сколько таких пар? ');
End.

Program zadacha_5;

Uses zadach268.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* В работе нам потребуются переменные: *}
  a : integer;
  b : integer;
  s : integer;
  p : integer;
  k : integer;
Begin
  clrccr;
  k := 0;
  For a := 1 To 100 Do {* Увеличиваем a от 1 до 100 с шагом 1 *}
    For b := 1 to100 Do {* Переменная b увеличивается с 1 до 100 *}
    Begin
      s := a + b;
      p := a * b;
      If p = 10 * s Then
      Begin
        writeln (‘a = ’, a,’b = ’, b);
        k := k + 1;
        b := b + 1;
      End;
      
    End;
  a := a + 1;
  writeln(k);
  readln; {* Приостановка программы. Ожидание Enter *}
End.