Question

ПОМОГИТЕ,ПРОШУ.
Мне нужно составить в Pascal ABC имя "София".Но,используя DrawMan.
P.s. первая буква составлена.

Answer 1

Uses Drawman;
Begin 
Field(26,10); 
ToPoint(1,2); 
PenDown; 
ToPoint(1,8); 
ToPoint(4,8); 
PenUp; 
ToPoint(1,2); 
PenDown; 
ToPoint(4,2); 
PenUp; 
ToPoint(6,2); 
PenDown; 
ToPoint(6,8); 
ToPoint(9,8); 
ToPoint(9,2); 
ToPoint(6,2); 
PenUp; 
ToPoint(13,2); 
PenDown; 
ToPoint(13,8); 
ToPoint(11,8); 
ToPoint(11,5); 
ToPoint(15,5); 
ToPoint(15,8); 
ToPoint(13,8); 
PenUp; 
ToPoint(17,8); 
PenDown; 
ToPoint(17,2);
ToPoint(20,8); 
ToPoint(20,2);
PenUp; 
ToPoint(22,2); 
PenDown; 
ToPoint(25,5); 
ToPoint(22,5); 
ToPoint(22,8); 
ToPoint(25,8); 
ToPoint(25,2); 
PenUp;
End.