Напишите какие нибудь интересные картинки для Pascal ABC.

Program Strela;
Uses Drawman;
Begin
Field(12,12);
ToPoint(2,1);
PenDown;
ToPoint(2,2);
ToPoint(1,2);
PenUp;
ToPoint(2,2);
PenDown;
ToPoint(10,10);
ToPoint(7,9);
ToPoint(10,7);
ToPoint(10,10);
PenUp;
ToPoint(0,0)
End.

Uses DrawMan,GraphABC;
begin
Field(19,12);
ToPoint(1,1);
PenDown;

ToPoint(15,1);
ToPoint(18,4);
ToPoint(11,11);
ToPoint(11,6);
PenUp;
ToPoint(9,6);
PenDown;
ToPoint(13,6);
ToPoint(13,5);
ToPoint(10,5);
ToPoint(9,5);
ToPoint(9,6);
ToPoint(9,8);
ToPoint(8,8);
ToPoint(8,5);
ToPoint(9,5);
ToPoint(5,5);
ToPoint(5,4);
ToPoint(4,3);
ToPoint(12,3);
ToPoint(13,4);
ToPoint(18,4);
PenUp;
ToPoint(15,5);
PenDown;
ToPoint(15,4);
ToPoint(15,5);
ToPoint(12,5);
PenUp;
ToPoint(18,4);
PenDown;
ToPoint(11,11);
ToPoint(1,3);
ToPoint(1,1);
ToPoint(1,3);
ToPoint(4,3);
PenUp;
ToPoint(6,4);
PenDown;
ToPoint(10,4);
PenUp;
ToPoint(13,3);
PenDown;
ToPoint(14,3);
ToPoint(14,2);
ToPoint(13,2);
ToPoint(13,3);
PenUp;
ToPoint(15,3);
PenDown;
ToPoint(16,3);
ToPoint(16,2);
ToPoint(15,2);
ToPoint(15,3);
PenUp;
ToPoint(0,12);//x.y
Pendown;
ToPoint(3,12);
ToPoint(0,12);
ToPoint(0,10);
ToPoint(3,10);
ToPoint(0,10);
ToPoint(0,8);
ToPoint(3,8);
PenUp;
ToPoint(8,8);
PenDown;
ToPoint(8,9);//x y
ToPoint(8,9);
end.

Program .1.;
Uses Drawman;
Begin
Field(12,12);
ToPoint(4,1);
PenDown;
ToPoint(4,3);
ToPoint(10,3);
ToPoint(10,1);
ToPoint(4,1);
ToPoint(6,1);
ToPoint(6,7);
ToPoint(8,7);
ToPoint(8,1);
ToPoint(8,7);
ToPoint(7,7);
ToPoint(7,6);
PenUp;
ToPoint(0,0)
End.

program bye;
uses crt, graphabc;
begin
setwindowtitle('---.---');
setwindowsize(522,382);
floodfill(1,1,clBlack);
setbrushcolor(clblack);
setfontcolor(clwhite);
writeln('鑓塵幗膂蓿f寥寢膃暠瘉甅甃槊槎f碣綮瘋聟碯颱亦尓㍍i:i:i;;:;:: : : ');
writeln('澣幗嶌塹傴嫩榛畝皋i袍耘蚌紕欒儼巓襴踟篁f罵f亦尓㍍i:i:i;;:;:: : : ');
writeln('漲蔭甃縟諛f麭窶膩I嶮薤篝爰曷樔黎㌢´　　｀ⅷ踟亦尓㍍i:i:i;;:;:: : : ');
writeln('蔕漓滿f蕓蟇踴f歙艇艀裲f睚鳫巓襴骸　　　　　贒憊亦尓㍍i:i:i;;:;:: : : ');
writeln('榊甃齊爰f懈橈燗殪幢緻I翰儂樔黎夢!”　 　 ,ｨ傾篩縒亦尓㍍i:i:i;;:;:: : : ');
writeln('箋聚蜚壊劑薯i暹盥皋袍i耘蚌紕偸′　　　 雫寬I爰曷f亦尓㍍i:i:i;;:;:: : : ');
writeln('銕颱麼寰篝螂徑悗f篝嚠篩i縒縡齢　　 　 　 Ⅷ辨f篝I鋗f亦尓㍍i:i:i;;:; : : . ');
writeln('碯聟f綴麼辨螢f璟輯駲f迯瓲i軌帶′　　　　　`守I厖孩f奎亦尓㍍i:i:i;;:;:: : : . ');
writeln('綮誣撒f曷磔瑩德f幢儂儼巓襴緲′　 　 　 　 　 `守枢i磬廛i亦尓㍍i:i:i;;:;:: : : . ');
writeln('慫寫廠徑悗緞f篝嚠篩I縒縡夢/ ´　　　 　 　 　 　 　 `守峽f徑悗f亦尓㍍i:i:i;;:;:: : : . ');
writeln('廛僵I數畝篥I熾龍蚌紕襴緲′　　　　　　　　　　　　　‘守畝皋弊i劍亦尓㍍i:i:i;;:;:: : : . ');
writeln('瘧i槲瑩f枢篝磬曷f瓲軌揄′　　　　　　　　　　　　　,gf毯綴徑悗嚠迩忙亦尓㍍i:i:i;;:;:: ');
writeln('襴罩硼f艇艀裲睚鳫襴鑿 　　　　　　　　　　 　 　 奪寔f厦傀揵猯i爾迩忙亦尓㍍i:i: ');
writeln('椈棘斐犀耋絎絲絨緲 　　　　　　 　 　 　 　 　 　 　 罨悳萪f蒂渹幇f廏迩忙i亦尓㍍ ');
writeln('潁樗I瘧德幢i儂巓緲''　　　　 　　 　 　 　 　 　 　 ℡〟”''罨椁裂滅楔滄愼愰迩忙亦 ');
writeln('翦i磅艘溲I搦儼巓登zzz zzz㎜㎜ｧg　 　 緲 g　 　 甯體i爺ゎ｡, ”''罨琥焜毳徭i嵬塰慍絲 ');
writeln('枢 篝磬 f曷迯i瓲軌 f襴暹 甯幗緲 ,fi 　　 '',纜｡　　贒i綟碕碚爺ゎ｡ ”''罨皴發傲亂I黹靱 ');
writeln('緞愾慊嵬嵯欒 儼巓襴驫 霤I緲 ,緲　　 ＂,纜穐　　甯絛跨飩i髢馳爺ゎ｡`''等誄I筴碌I畷 ');
writeln('罩硼I蒻筵硺艇艀i裲睚亀 篳 ’,緲　　g亀 Ⅶil齢　　贒罩硼i艇艀裲睚鳫爺靠飭蛸I裘裔 ');
writeln('椈f棘豢跫跪I衙絎絲絨i爺i㎜iⅣ 　 ,緲i亀 Ⅶ靈,　　甯傅喩I揵揚惹屡絎痙棏敞裔筴敢- ');
writeln('::頬i鞏褂f跫詹雋髢i曷迯瓲軌霤 　 ,緲蔭穐Ⅶ穐 　 讎椈i棘貅f斐犀耋f絎絲觚f覃黹黍- ');
writeln('襴蔽戮貲艀舅I肅肄肆槿f蝓Ⅷ 　 緲$慚I穐,疊穐　 甯萪碾f鋗輜靠f誹臧鋩f褂跫詹i雋- ');
writeln('鋐篆f瘧蜑筴裔罩罧I緜孵蓼Ⅷ　 i鷆嫩槞i歉皸鱚　 冑縡諛諺彙溘嵳勠尠錣綴麼辨螢-');
writeln(' ｡ ');
end.

Program F;
user drawman;
begin
Field(9,9);
ToPoint(1,1);
PenDown;
ToPoint(1,8);
ToPoint(8,8);
ToPoint(8,1);
ToPoint(1,8);
PenUp;
ToPoint(0,0)
end.

鑓塵幗膂蓿f寥寢膃暠瘉甅甃槊槎f碣綮瘋聟碯颱亦尓㍍i:i:i;;:;:: : :
澣幗嶌塹傴嫩榛畝皋i袍耘蚌紕欒儼巓襴踟篁f罵f亦尓㍍i:i:i;;:;:: : :
漲蔭甃縟諛f麭窶膩I嶮薤篝爰曷樔黎㌢´　　｀ⅷ踟亦尓㍍i:i:i;;:;:: : :
蔕漓滿f蕓蟇踴f歙艇艀裲f睚鳫巓襴骸　　　　 贒憊亦尓㍍i:i:i;;:;:: : :
榊甃齊爰f懈橈燗殪幢緻I翰儂樔黎夢'”　 　 ,ｨ傾篩縒亦尓㍍i:i:i;;:;:: : :
箋聚蜚壊劑薯i暹盥皋袍i耘蚌紕偸′　　　 雫寬I爰曷f亦尓㍍i:i:i;;:;:: : :
銕颱麼寰篝螂徑悗f篝嚠篩i縒縡齢　　 　 　 Ⅷ辨f篝I鋗f亦尓㍍i:i:i;;:; : : .
碯聟f綴麼辨螢f璟輯駲f迯瓲i軌帶′　　　　　`守I厖孩f奎亦尓㍍i:i:i;;:;:: : : .
綮誣撒f曷磔瑩德f幢儂儼巓襴緲′　 　 　 　 　 `守枢i磬廛i亦尓㍍i:i:i;;:;:: : : .
慫寫廠徑悗緞f篝嚠篩I縒縡夢'´　　　 　 　 　 　 　 `守峽f徑悗f亦尓㍍i:i:i;;:;:: : : .
廛僵I數畝篥I熾龍蚌紕襴緲′　　　　　　　　　　　　　‘守畝皋弊i劍亦尓㍍i:i:i;;:;:: : : .
瘧i槲瑩f枢篝磬曷f瓲軌揄′　　　　　　　　　　　　　,gf毯綴徑悗嚠迩忙亦尓㍍i:i:i;;:;::
襴罩硼f艇艀裲睚鳫襴鑿緲'　　　　　　　　　　 　 　 奪寔f厦傀揵猯i爾迩忙亦尓㍍i:i:
椈棘斐犀耋絎絲絨緲′　　　　　　 　 　 　 　 　 　 　 ”'罨悳萪f蒂渹幇f廏迩忙i亦尓㍍
潁樗I瘧德幢i儂巓緲′　　　　　　 　 　 　 　 　 　 r㎡℡〟”'罨椁裂滅楔滄愼愰迩忙亦
翦i磅艘溲I搦儼巓登雫龍潁樗I瘧德　 　 緲 g　 　 甯體i爺ゎ｡, ”'罨琥焜毳徭i嵬塰慍絲
枢篝磬f曷迯i瓲軌f襴暹 甯幗緲 ,fi'　　 緲',纜｡　　贒i綟碕碚爺ゎ｡ ”'罨皴發傲亂I黹靱
緞愾慊嵬嵯欒儼巓襴驫 霤I緲 ,緲　　 幗,纜穐　　甯絛跨飩i髢馳爺ゎ｡`'等誄I筴碌I畷
罩硼I蒻筵硺艇艀i裲睚亀 篳'’,緲　　g亀 曷綴齢　　贒罩硼i艇艀裲睚鳫爺靠飭蛸I裘裔
椈f棘豢跫跪I衙絎絲絨i爺i㎜iⅣ 　 ,緲i亀 澣靈,　　甯傅喩I揵揚惹屡絎痙棏敞裔筴敢
頬i鞏褂f跫詹雋髢i曷迯瓲軌霤 　 ,緲蔭穐幗 穐 　 讎椈i棘貅f斐犀耋f絎絲觚f覃黹黍
襴蔽戮貲艀舅I肅肄肆槿f蝓Ⅷ 　 緲$慚I穐,疊穐　 甯萪碾f鋗輜靠f誹臧鋩f褂跫詹i雋
鋐篆f瘧蜑筴裔罩罧I緜孵蓼Ⅷ　 i鷆嫩槞i歉皸鱚　 冑縡諛諺彙溘嵳勠尠覃綴麼辨螢