Ñèñòåìíîå ïðîãðàììèðîâàíèå â UNIX ñðåäñòâàìè Free Pascal
bukvi:Array ['!'..'_'] of TArrNum
(' * * '),(' ** '),(' '),(' **** '),('* **'),
('* * '),('* * '),('*** '),(' ***'),(' * '),
(' *** '),(' * *'),(' * * '),(' * '),('* * *'),
('** **'),('* ** *'),('** *'),('* * *'),(' ** '),
(' ** **'),(' ** '),('**** *'),(' **'),(' *** '),
('** '),('* ***'),('*** *'),('**** '),(' ** *'),
(' ****'),('* *** ')
);
bukvi:Array ['!'..'_'] of TArrNum=
(
(13,12,14,14,12,12,13,12), {!}
(26,26,11,13,13,13,13,13), {"}
(13,11,11,1,11,1,11,11), {#}
(6,14,10,18,19,10,14,6), {$}
(13,28,26,12,30,31,26,4), {%}
(21,16,17,32,32,25,16,34), {&}
(12,12,32,13,13,13,13,13), {'}
(13,7,6,5,5,5,6,7), {(}
(13,6,7,8,8,8,7,6), {)}
(13,13,11,12,1,12,11,13), {*}
(13,12,12,1,1,12,12,13), {+}
(13,13,13,13,13,12,12,32), {,}
(13,13,13,1,13,13,13,13), {-}
(13,13,13,13,13,13,13,9), {.}
(13,9,34,30,12,32,36,4), {/}
(13,14,15,37,27,38,28,14), {0}
(13,12,21,39,12,12,12,14), {1}
(13,14,26,30,12,6,39,1), {2}
(13,35,22,9,30,9,22,35), {3}
(13,24,12,11,3,7,7,35), {4}
(13,1,4,4,1,9,10,14), {5}
(13,35,5,4,3,10,10,14), {6}
(13,2,31,34,34,30,12,12), {7}
(13,14,10,10,14,10,10,14), {8}
(13,35,22,22,41,9,22,35), {9}
(13,13,12,12,13,12,12,13), {:}
(13,13,12,12,13,12,12,32), {;}
(13,30,12,32,36,32,12,30), {<}
(13,13,13,1,1,13,13,13), {=}
(13,32,12,30,34,30,12,32), {>}
(13,35,22,9,8,7,13,7), {?}
(13,14,27,26,28,42,4,3), {@}
(13,12,11,10,1,10,10,10), {A}
(13,3,10,10,3,10,10,3), {B}
(13,2,4,4,4,4,4,2), {C}
(13,3,10,10,10,10,10,3), {D}
(13,1,4,4,3,4,4,1), {E}
(13,1,4,4,3,4,4,4), {F}
(13,14,10,4,4,15,10,14), {G}
(13,10,10,10,1,10,10,10), {H}
(13,21,6,6,6,6,6,21), {I}
(13,19,20,20,20,16,16,21),{J}
(13,10,16,17,18,17,16,10), {K}
(13,4,4,4,4,4,10,1), {L}
(13,10,26,27,10,10,10,10), {M}
(13,10,28,29,25,30,10,10), {N}
