program dl9_Alina73;
var a:array [1..3,1..3] of real;
b:array [1..3,1..3] of real;
c:array [1..3,1..3] of real;
i,q:integer;
begin
Randomize;
for i:=1 to 3 do begin
for q:=1 to 3 do begin
a[i,q]:=Random(10)
end end;
for i:=1 to 3 do begin
for q:=1 to 3 do begin
b[i,q]:=Random(5);
end end;
for i:=1 to 3 do begin
writeln;
for q:=1 to 3 do begin
c[i,q]:=a[i,q]*b[i,q];
write (c[i,q])
end end;
readln
end.
