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

переделай эту программу 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.

Вот неполный домик. Остальное пойми логику и попробуй сам. 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. Если у тебя не Паскаль АВС то первую строчку измени под свой Паскаль.