{* Задача 81 *}

Unit ZADACH81;
Interface
Implementation
Begin
 writeln('Даны целые числа a[1], a[2], a[3]. Получить целочисленную матрицу b[ij]i, j=1, 2, 3, для которой b[ij]=a[i]-3a[j]. ');
End.

Program zadach81;

Uses zadach81.pas; {* Эту строку можно удалить *}
Const {* Постоянные значения *}
  N = 3;
Var {* Объявление переменных *}
  i : integer;
  j : integer;
  a : Array[1..N] Of integer;
  b : Array[1..N, 1..N] Of integer;
Begin
  For i := 1 To N Do {* Увеличиваем i от 1 до N с шагом 1 *}
    For j := 1 To N Do {* Увеличиваем j от 1 до N с шагом 1 *}
      b[i, j] := a[i] - 3 * a[j];
End.