program podzbiory;
{wypisuje wszystkie podzbiory n-elementowe z t:tab}

const max=3;
type
    tab= array[1..max] of Integer;
var
   t,bufor: tab;
   n:integer;


procedure podzbior (var bufor:tab;i,k:integer);
var j:integer;
begin

  bufor[i]:=t[k];
  if i=n then
     for j:=1 to i do write(bufor[j],' ');
  writeln;

    if k+1<=max then
    begin
    podzbior(bufor, i+1,k+1);
    podzbior(bufor, i, k+1);
    end;
end;


begin
t[1]:=1; t[2]:=2; t[3]:=3; {t[4]:=4; t[5]:=5; t[6]:=6;}
n:=2;
podzbior(bufor,1,1);
readln;
end.