{* Задача 275 *}

Unit ZADACH275;
Interface
Implementation
Begin
 writeln('Составить таблицу умножения на 7. ');
End.

Program zadach275;

Uses zadach275.pas; {* Эту строку можно удалить *}
Var {* Необходимые переменные *}
  i : integer;
  p : integer;
Begin
  writeln ('таблица умножения на 7');
  For i := 1 To 10 Do {* Переменная i увеличивается с 1 до 10 *}
  Begin
    p := 7 * i;
    writeln ('7x', i, '=', p);
  End;
  readln; {* Ждем подтверждения пользователя *}
End.