Напишите программу формирования и вывода массива размером 6х3, каждые три последовательных элемента в строке которого составлены по следующему правилу:
1-й равен квадрату суммы индексов следующего элемента.
2-й равен удвоенной сумме текущих индексов
3-й равен разности двух предыдущих элементов.
Паскаль

Понятно, сдвиг по дтагонали

// PascalABC.NET 3.2, сборка 1425 от 22.04.2017// Внимание! Если программа не работает, обновите версию!begin  var a:=new integer[6,3];  for var i:=0 to 5 do begin    a[i,0]:=sqr(i+3);    a[i,1]:=2*(i+3);    a[i,2]:=a[i,0]-a[i,1];    end;  a.Println(3)end.Результат  9  6  3 16  8  8 25 10 15 36 12 24 49 14 35 64 16 48

Const   N = 6;   M = 3;Var   A:array[1..N,1..M] of integer;   i:integer;BeginFor i:= 1 to N do    Begin    A[i,1]:=sqr(i+2);    A[i,2]:=2*i+4;    A[i,3]:=A[i,2]-A[i,1];    WriteLn(A[i,1]:3,' ',A[i,2]:3,' ',A[i,3]:3);    End;End.Результат работы программы:  9   6  -3 16   8  -8 25  10 -15 36  12 -24 49  14 -35 64  16 -48