Program Task_6_40;
Const n=3; k=2;
Type MyArray=Array[1..n] Of 0..k;
Var A : MyArray;
Procedure Print;
Var i : Integer;
Begin
For i := 1 To n Do Write(A[i]:3);
WriteLn;
End;
Procedure Solve(t:Integer);
Var i:Integer;
Begin
If t>n Then Print
Else For i:= 1 To k Do Begin
A[t]:= i;
Solve(t+1);
End;
End;
Begin
Solve (1);
End.