---

program HouseAndSun;

uses GraphABC;

begin
  // Устанавливаем размер окна
  SetWindowSize(800, 600);
  
  // Рисуем небо (голубой фон)
  Brush.Color := clSkyBlue;
  FillRectangle(0, 0, 800, 300);
  
  // Рисуем землю (зелёная полоса внизу)
  Brush.Color := clGreen;
  FillRectangle(0, 300, 800, 600);
  
  // Рисуем домик
  Brush.Color := clBrown;
  FillRectangle(200, 250, 400, 450); // Стена дома
  
  // Рисуем крышу
  Pen.Color := clRed;
  Brush.Color := clRed;
  Polygon([(180, 250), (300, 150), (420, 250)]); // Треугольная крыша
  
  // Рисуем трубу на крыше
  Brush.Color := clGray;
  FillRectangle(350, 170, 380, 220);
  
  // Рисуем окно
  Brush.Color := clWhite;
  FillRectangle(250, 300, 300, 350);
  // Делим окно на 4 части
  Line(275, 300, 275, 350);
  Line(250, 325, 300, 325);
  
  // Рисуем дверь
  Brush.Color := clDarkRed;
  FillRectangle(320, 330, 360, 450);
  Circle(355, 390, 5); // Дверная ручка
  
  // Рисуем забор перед домом
  for var i := 0 to 6 do
  begin
    var x := 100 + i * 80;
    // Доски забора
    Brush.Color := clSaddleBrown;
    FillRectangle(x, 350, x + 30, 450);
    // Верхушки досок (треугольники)
    Polygon([(x, 350), (x + 15, 330), (x + 30, 350)]);
  end;
  
  // Рисуем солнце
  Brush.Color := clYellow;
  Circle(650, 100, 50); // Солнце
  // Лучи солнца
  for var angle := 0 to 315 step 45 do
  begin
    var rad := angle * Pi / 180; // Переводим градусы в радианы
    var x1 := 650 + Round(50 * Cos(rad));
    var y1 := 100 + Round(50 * Sin(rad));
    var x2 := 650 + Round(70 * Cos(rad));
    var y2 := 100 + Round(70 * Sin(rad));
    Line(x1, y1, x2, y2);
  end;
  
  // Рисуем человека
  // Голова
  Brush.Color := clBeige;
  Circle(500, 370, 20);
  // Тело (туловище)
  Pen.Width := 3;
  Line(500, 390, 500, 460);
  // Руки
  Line(500, 410, 470, 430);
  Line(500, 410, 530, 430);
  // Ноги
  Line(500, 460, 480, 500);
  Line(500, 460, 520, 500);
end.