{* Задача 459 *}

Unit ZADACH459;
Interface
Implementation
Begin
 writeln('Дано число x. Сформировать двумерный массив A (n x m) , так, чтобы каждый элемент матрицы был равен: aij=Sin(x(i+j)).');
End.

Program zadach459;

Uses zadach459.pas; {* Эту строку можно удалить *}
Const {* Постоянные значения *}
  n = 4;
  m = 5;
Var {* Необходимые переменные *}
  a : Array [1..n, 1..m] Of real;
  x : integer;
  i : integer;
  j : integer;
Begin
  readln (x);
  For i := 1 To n Do {* Цикл для i => [1 .. n] *}
    For j := 1 To m Do {* Увеличиваем j от 1 до m с шагом 1 *}
      a[i, j] := sin(x * (i + j));
  For i := 1 To n Do {* Цикл для i => [1 .. n] *}
  Begin
    For j := 1 To m Do {* Цикл для j => [1 .. m] *}
      write (a[i, j] : 6:2);
    writeln; {* Пропускаем одну строку *}
  End;
  
End.