11 lines
150 B
ObjectPascal
11 lines
150 B
ObjectPascal
|
|
var
|
|
i,j:integer;
|
|
a: array [1..4,1..4] of integer;
|
|
n: integer;
|
|
begin
|
|
read(n);
|
|
for i:=1 to 4 do
|
|
for j:=1 to 4 do
|
|
read(a[i,j]);
|
|
end. |