program z5_67; var x,y: integer; begin for x:=6 downto 1 do begin for y:= 1 to x do write(6:2); writeln; end; end.