Question

Цепочки цифр длины 4 составленные из нулей иединиц

Answer 1

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.