квадрат матрицы

[MrMorozko]

Дана целочисленная матрица размера 4на4. Получить квадрат этой матрицы.
напишите пожалуста формулу вывод паолностью во вторую матрицу

procedure TForm1.Button1Click(Sender: TObject);

var i,s,j:integer;
begin
s:=0;
for i:=0 to stringgrid1.colcount-1 do
for j:=0 to stringgrid1.rowcount-1 do
StringGrid2.cells[i,j]:= вот тут;



end;