Вопрос Помогите составить программу этого рисунка для паскаля

[vita 453]

Помогите составить программу этого рисунка для паскаля
//otvet.imgsmail.ru/download/46889745_1171dea80758964eb9f7f2f04addc193_800.jpg

 

[fdfdfdfdfds]

переделай эту программу program Kvadrat; uses GraphABC; begin; MoveTo (50,50); LineTo (100,50); LineTo (100,100); LineTo (50,100); LineTo (50,50); MoveTo (75,25); LineTo (50,50); MoveTo (75,25); LineTo (100,50); LineTo (200,50); MoveTo (75,25); LineTo (175,25); MoveTo (175,25); LineTo (200,50); MoveTo (200,50); LineTo (200,100); MoveTo (200,100); LineTo (100,100); MoveTo (65,65); LineTo (65,85); LineTo (85,85); LineTo (85,65); LineTo (65,65); end.

 

[DarKez]

Вот неполный домик. Остальное пойми логику и попробуй сам. uses graphABC; begin line(25,15,50,15); lineto(60,25); lineto(15,25); lineto(25,15); line(15,25,15,65); lineto(60,65); lineto(60,25); line(45,10,45,15); line(40,12,50,8); line(40,8,50,12); line(30,65,30,50); lineto(45,50); lineto(45,65); end. Если у тебя не Паскаль АВС то первую строчку измени под свой Паскаль.