program printme(output);var i: integer; procedure p(i:integer);begin case i of 0:write(':write('); 1:write('program printme(output);var i: integer;'); 2:write('procedure p(i:integer);begin case i of'); 3:write('end end;begin p(1);writeln;p(2);writeln;for i:=0'); 4:write('to 7 do begin write(i:1);p(0);write(chr(39));'); 5:write('p(i);write(chr(39));p(7);writeln end;for i:=3 to'); 6:write('6 do begin p(i);writeln end end.'); 7:write(');'); end end;begin p(1);writeln;p(2);writeln;for i:=0 to 7 do begin write(i:1);p(0);write(chr(39)); p(i);write(chr(39));p(7);writeln end;for i:=3 to 6 do begin p(i);writeln end end.