program zad1;
uses crt;
const
max_n = 100;
type
mass = array [1 .. max_, 1 .. max_n] of integer;
var
a, b: mass;
i, j, n: integer;
begin
clrscr;
writeln('VVEDITE n');
readln(n);
for i := 1 to n do
begin
for j := 1 to n do
begin
a[i, j] := random(10);
b[j, i] := a[i, j];
write(a[i, j], ' ');
end;
writeln;
end;
writeln;
for i := 1 to n do
begin
for j := 1 to n do
write(b[i, j], ' ');
writeln;
end;
for i := 1 to n do
for j := 1 to n do
a[i, j] := a[i, j] * b[i, j];
writeln;
for i := 1 to n do
begin
for j := 1 to n do
write(a[i, j], ' ');
writeln;
end;
writeln;
for i := 1 to n do
begin
for j := 1 to n do
write(b[i, j], ' ');
writeln;
end;
readkey;
end.