zadach283.PAS

{* Задача 283 *}

Unit ZADACH283;
Interface
Implementation
Begin
 writeln('

Продолжить закономерность:

9*9+7=88

98*9+6=888

987*9+5=8888


'
);
End.

Program zadach283;

Uses zadach283.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Объявление переменных *}
  i : longint;
  k : longint;
  n : longint;
Begin
  clrscr; {* Очистка экрана *}
  k := 9;
  For i := 9 Downto 2 Do
  Begin
    n := 0;
    n := k * 9 + i - 2;
    writeln(k, '*9+', i - 2, '=', n);
    k := k * 10 + i - 1;
  End;
  readln; {* Приостановка программы. Ожидание Enter *}
End.