Цепочки цифр длины 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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.