OJ-Problems-Source/OpenJudge/ch0101_冰封/10.pas

25 lines
2.0 KiB
ObjectPascal
Raw Normal View History

2016-07-06 14:15:22 +08:00
begin
writeln(' ********');
writeln(' ************');
writeln(' ####....#.');
writeln(' #..###.....##....');
writeln(' ###.......###### ### ### ### ###');
writeln(' ........... #...# #...# #...# #...#');
writeln(' ##*####### #.#.# #.#.# #.#.# #.#.#');
writeln(' ####*******###### #.#.# #.#.# #.#.# #.#.#');
writeln(' ...#***.****.*###.... #...# #...# #...# #...#');
writeln(' ....**********##..... ### ### ### ###');
writeln(' ....**** *****....');
writeln(' #### ####');
writeln(' ###### ######');
writeln('############################################################## ##################################');
writeln('#...#......#.##...#......#.##...#......#.##------------------# #...#......#.##------------------#');
writeln('###########################################------------------# ###############------------------#');
writeln('#..#....#....##..#....#....##..#....#....##################### #..#....#....#####################');
writeln('########################################## #----------# ############## #----------#');
writeln('#.....#......##.....#......##.....#......# #----------# #.....#......# #----------#');
writeln('########################################## #----------# ############## #----------#');
writeln('#.#..#....#..##.#..#....#..##.#..#....#..# #----------# #.#..#....#..# #----------#');
writeln('########################################## ############ ############## ############');
end.