program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
procedure f(s: string; k,n: integer);
var i: integer;
begin
  if k=0 then begin
    write(s);
    for i:=1 to n do write('0');
    writeln;
  end
  else if k=n then begin
    write(s);
    for i:=1 to n do write('1');
    writeln;
  end
  else begin
    f(s+'0',k,n-1);
    f(s+'1',k-1,n-1);
  end;
end;
begin
  f('',6,30);
end.

Как думаете, что важнее для программиста — изучить математику или научиться читать чужой код и отлаживать программы?