Вычислить элементы двумерных массивов

[Yamkin]

Люди помогите решить эту задачу с массивами

[Ponkole]

Тебе прогу

Uses CRT
const b:array [1..3, 1..3] of real = (0.4, 2.5, 3.2,
                                                0.6, 4.8, -3,
                                                5.4,-0.2, 1.3);
var i,j:integer;
     a:array [1..3, 1..3] of real;
begin
clrscr;
for i:=1 to 3 do begin
for j:=1 to 3 do begin
a[i,j]:=b[i,j]*b[i,j]; 
write(a[i,j],'   ');
end;
writeln;
end;
readln;
readln;
end.

А если просто ответ, то массив А вычисли через мою программку.