Помогите пожалуйста, в душе не чаю как это делать

а по основной умеешь?

Нет

ну что тогда изъяснять...

Уже ничего, спасибо

Var  a: array[1..7, 1..7] of integer;  i, j: integer;
begin  for i := 1 to 7 do  begin    for j := 1 to 7 do    begin      read(a[i][j]);    end;    readln();  end;    for i := 7 downto 1 do  begin    for j := 1 to 7 do    begin      writeln(a[i][j] * a[i][j]);    end;  end;end.