Код по информатике

Program dom;
Uses graphABC;
Begin
// Рисуем крышу
line(100,100,150,50);
line(150,50,200,100);
line(200,100,100,100);
floodfill(120,90,clGreen);

// Основа дома
SetBrushColor(clRed);
rectangle(115,100,185,150);

// Дымовая труба
SetBrushColor(clBrown); // Коричневая труба
rectangle(160, 50, 170, 80); // Вертикальный прямоугольник

// Дым
SetBrushColor(clLightGray); // Серый дым
ellipse(155, 30, 175, 50); // Дымовые клубы
ellipse(150, 10, 180, 30);

// Окно на крыше
SetBrushColor(clBlue);
circle(150,75,5);

// Дверь
SetBrushColor(clGray);
rectangle(125,120,140,140);

// Надпись
SetBrushColor(clRed);
textOut(150,110,'Дом');
end.