zadach284.PAS

{* Задача 284 *}

Unit ZADACH284;
Interface
Implementation
Begin
 writeln('

Продолжить последовательность:

1*9+2=11

12*9+3=111

123*9+4=1111


'
);
End.

Program zadach284;

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