var a: array [1..10, 1..10] of integer;
i,j: integer;
begin
for i:=1 to 10 do
for j:=1 to 10 do
if i=j then a[i,j]:=1
end.
var a: array [1..10, 1..10] of integer;
i,j: integer;
begin
for i:=1 to 10 do
for j:=1 to 10 do
if i=j then a[i,j]:=1
end.