Pascal做法（好像感觉更乱、更复杂了呢）

var
i:integer;
begin
write(' ':16,'********');
writeln;
write(' ':15,'************');
writeln;
write(' ':15,'####....#.');
writeln;
write(' ':13,'#..###.....##....');
writeln;
write(' ':13,'###.......######',' ':14,'###',' ':12,'###');
writeln;
write(' ':16,'...........',' ':15,'#...#',' ':10,'#...#');
writeln;
write(' ':15,'##*#######',' ':17,'#.#.#',' ':10,'#.#.#');
writeln;
write(' ':12,'####*******######',' ':13,'#.#.#',' ':10,'#.#.#');
writeln;
write(' ':11,'...#***.****.*###....',' ':10,'#...#',' ':10,'#...#');
writeln;
write(' ':11,'....**********##.....',' ':11,'###',' ':12,'###');
writeln;
write(' ':11,'....****    *****....');
writeln;
write(' ':13,'####',' ':8,'####');
writeln;
write(' ':11,'######',' ':8,'######');
writeln;
for i:=1 to 62 do
write('#');
writeln;
writeln('#...#......#.##...#......#.##...#......#.##------------------#');
for i:=1 to 43 do
write('#');
for i:=1 to 18 do
write('-');
write('#');
writeln;
writeln('#..#....#....##..#....#....##..#....#....#####################');
for i:=1 to 42 do
write('#');
write('    #----------#');
writeln;
writeln('#.....#......##.....#......##.....#......#    #----------#');
for i:=1 to 42 do
write('#');
write('    #----------#');
writeln;
writeln('#.#..#....#..##.#..#....#..##.#..#....#..#    #----------#');
for i:=1 to 42 do
write('#');
write('    ############');
end.