Var i,j,x : Integer;
a: array[1..4,1..4] of integer;
begin
Write('Введите числа массива: ');
for i:=1 to 4 do begin
for j:=1 to 4 do begin
Readln(x);
a[i,j]:=x;
end;
end;
for i:=1 to 4 do begin
for j:=1 to 4 do begin
write(a[i,j],' ');
end;
writeln;
end;