Напишите программу, рисующую изображение дома.

Решение:

Program Домик;
uses GraphAbc;
begin
  SetWindowWidth(800);
  SetWindowHeight(600);
  SetPenWidth(3);
  SetFontSize(18);
  SetFontColor(clRed);
  SetFontStyle(fsBold);
  TextOut(100,100, 'Домик');
  Rectangle(200, 300, 600,600); //дом
  Circle(400,225, 40); //круг - чердачное окно
  rectangle(300,400,500,500); //окно
  SetBrushColor(clSkyBlue); //цвет заливки окна
  FillRect(300, 400,500,500); //процедура заливки окна
  Line(400,400,400,500); // окно
  Line(300,450,500,450); //окно
  Line(200,300,400,150); //крыша
  Line(400,150,600,300); //крыша
  Line(480,210,480,160); //труба
  Line(480,160,520,160); //труба
  Line(520,160,520,240); //труба
end.