{* Задача 243 *}

Unit ZADACH243;
Interface
Implementation
Begin
 writeln('Даны целые числа a1, a2, a3. Получить целочисленную матрицу [bij ]i, j=1, 2, 3 , для которой bij= ai – 3aj. ');
End.

Program zadach243;

Uses zadach243.pas; {* Эту строку можно удалить *}
Uses Crt; {* Подключаем внешние файлы *}
Var {* Необходимые переменные *}
  a : Array [1..3] Of integer;
  b : Array [1..3, 1..3] Of integer;
  i : byte;
  j : byte;
Begin
  ClrScr; {* Очистка экрана *}
  writeln('введите три элемента массива А');
  write('a[1]-? ');
  readln(a[1]);
  write('a[2]-? ');
  readln(a[2]);
  write('a[3]-? ');
  readln(a[3]);
  writeln; {* Пропускаем одну строку *}
  writeln('массив B');
  For i := 1 To 3 Do {* Переменная i увеличивается с 1 до 3 *}
  Begin
    For j := 1 To 3 Do {* Увеличиваем j от 1 до 3 с шагом 1 *}
    Begin
      b[i, j] := a[i] - 3 * a[j];
      write(b[i, j] : 4);
    End;
    writeln; {* Пустая строка *}
  End;
  ReadKey; {* Ждем нажатия любой клавиши *}
End.