Đệ quy quay lùi

program dequy;
const fn='dq.inp';
        gn='dq.out';

var x:array[1..10] of integer;
n:longint;
f,g:text;


{-----------}

procedure xuat;
var i:integer;
begin
        for i:=1 to 3 do
        write(x[i]);
        writeln;
end;

{-------------}

procedure try(i:longint);
var j:integer;
begin
        for j:=0 to 1 do
        begin
                x[i]:=j;
                if i=3 then xuat
                else try(i+1);
        end;
end;

{-----------}

begin

        try(1);
        xuat;
        readln;
end.