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

Question

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

---

Comments

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

---

Нет

---

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

---

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

Answer 1

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.