Дано натуральное число N. Получить действительную матрицу A, элементы в которой вычисляются по формуле:

uses crt;const N = 5;var a:array [1..N,1..N] of real;i,j:integer;beginfor i:=1 to N dofor j:=1 to N dobeginif (i > j) thena[i,j]:= sin(i+j);if (i = j) thena[i,j]:= 1;if (i < j) thena[i,j]:= cos(i-j);end;for i:=1 to N dofor j:=1 to N dobeginwrite(a[i,j]:4:2,'    ');if (j = N) thenwriteln(' ');end;end.