Цепочки цифр длины 4 составленные из нулей иединиц
Var i,j,k,l:integer; begin for i:=0 to 1 do for j:=0 to 1 do for k:=0 to 1 do for l:=0 to 1 do writeln(i,j,k,l); end.