var
matrix : array [1..4, 1..4] of integer;
i,k,sr,st:Integer;
begin
sr := 1;
st := 4;
for i:=1 to 4 do
for k:=1 to 4 do
if (sr = i) and (st = k) then begin
matrix[i,k]:= 1;
sr := sr + 1;
st := st - 1;
end
else matrix[i,k]:= 0;
for i:=1 to 4 do
begin
for k:=1 to 4 do
write(' ', matrix[i,k]);
writeln
end;