uses crt,GraphABC;
 var i,j,k : integer;
Begin
 randomize;
 setpencolor(claqua);
 setbrushcolor(claqua);
 rectangle(0,0, 640,320);
 setpencolor(clGreen);
 setpenwidth(3);
//зелёная трава
 setbrushcolor(clGreen);
 rectangle(0,320, 640,400);
 setpencolor(clDkGray);//Перекладины: начало
 setbrushcolor(clDkGray);
 setpenwidth(1);
 rectangle(1,225, 445,235);
 delay(120);
 rectangle(1,305, 445,295);
 setpenwidth(3);//Перекладины: конец
 //Солнце(жёлтое)
 setpencolor(clyellow);
 setbrushcolor(clyellow);
 ellipse(20,10, 120,110);
 setpenwidth(3);
 line(130,65, 170,65);
 line(70,125, 70,165);
 line(110,110, 150,150);
 //Солнце: конец
 setpencolor(clwhite);
 setbrushcolor(clwhite);
 //Тучка: начало
 ellipse(240,20, 400,120);
 ellipse(225,50, 305,130);
 ellipse(290,90, 350,150);
 ellipse(345,65, 405,125);
 ellipse(340,25, 405,85);
 ellipse(290,10, 365,65);
 ellipse(245,15, 310,75);
 //Тучка: конец
 //Цветы: начало
 for i:=1 to 10 do
  begin
   j:=random(50);
   setpencolor(clred);
   setbrushcolor(clred);
   ellipse(10+i*60-60,370-j, 25+i*60-60,385-j);
   ellipse(25+i*60-60,385-j, 40+i*60-60,400-j);
   ellipse(10+i*60-60,385-j, 25+i*60-60,400-j);
   ellipse(25+i*60-60,370-j, 40+i*60-60,385-j);
   setbrushcolor(clyellow);
   setpencolor(clyellow);
   ellipse(17+i*60-60,377-j, 33+i*60-60,393-j);
  end;
  //Цветы: конец
//Забор:начало
 for i:=1 to 7 do
  begin
   setpencolor(clBrown);
   delay(100);
   line(i*60-40,200, i*60-40,320);//Колышки забора
//   delay(100);
   line(i*60,200, i*60,320);
//   delay(150);
   line(i*60-45,205, i*60-20,180);//Наклонные: начало
//   delay(160);
   line(i*60-20,180, i*60+5,205);//Наклонные: конец
   //Краска забора: нчало
   for j:=1 to 4 do
    begin
     setpenwidth(6);
     line(i*60-40+j*5,200-j*4, i*60-40+j*5,317);
    end;
   for j:=1 to 4 do
    begin
     setpenwidth(5);
     line(i*60-21+j*5,184+j*4, i*60-21+j*5,317);
    end;
//Краска забора:конец
//Гвозди чёрные: начало
   setpenwidth(3);
   delay(120);
   setpencolor(clBlack);
   setbrushcolor(clBlack);
   delay(120);
   ellipse(i*60-30,227, i*60-25,232);
   delay(120);
   ellipse(i*60-15,227, i*60-10,232);
   delay(120);
   ellipse(i*60-30,297, i*60-25,302);
   delay(120);
   ellipse(i*60-15,297, i*60-10,302);
  end;
//Гвозди чёрные: конец
//Забор: конец
//Дом: начало
  //Брёвна: начало
  setbrushcolor(clbrown);
  setpenwidth(1);
  setpencolor(clblack);
  rectangle(445,320-22, 625,320);
  ellipse(440,320-22, 451,320);
  setpencolor(clBrown);
  ellipse(617,320-22, 628,320);
  for i:=1 to 7 do
   begin
    setpencolor(clblack);
    delay(100+i*10);
    rectangle(445,320-i*22, 625,320-i*22-22);
    ellipse(440,320-i*22, 451,320-i*22-22);
    setpencolor(clBrown);
    ellipse(617,320-i*22, 628,320-i*22-22);
   end;
   //Брёвна: конец
  //Окно: начало
  setpencolor(clBlack);
  setpenwidth(5);
  setbrushcolor(clgray);
  rectangle(505,210, 565,270);
  line(535,210, 535,268);
  line(505,240, 563,240);
  //Окно: конец
   //Крыша: начало
  for i:=1 to 7 do
   begin
   //закраска шифера: начало
    if i<>7 then
    begin
     for j:=1 to 17 do
      begin
       setpenwidth(2);
       setpencolor(clgray);
       line(535,65, 434+i*33-33+j*2,149);
       setbrushcolor(clgray);
       ellipse(436+i*33-33,143, 467+i*33-33,154);//Округлый шифер
      end;
     end;
    //закраска шифера: конец
    setpencolor(clBlack);
    setpenwidth(3);
    line(535,65, 434+i*33-33,149);
   end;
   //Крыша: конец
  //Труба: начало
  setpenwidth(1);
  setpencolor(clBlack);
  setbrushcolor(clMaroon);
  for i:=4 downto 1 do
   begin
    if i<>4 then
     begin
      delay(100);rectangle(550,70+i*20-20, 570,80+i*20-20);delay(100);rectangle(570,70+i*20-20, 585,80+i*20-20);
      delay(100);rectangle(577,60+i*20-20, 585,70+i*20-20);delay(100);rectangle(557,60+i*20-20, 577,70+i*20-20);delay(100);rectangle(550,60+i*20-20, 557,70+i*20-20);
     end;
   end;
  //Труба: конец
//Окно: загореловсь
  delay(300);
  setpencolor(clBlack);
  setpenwidth(5);
  setbrushcolor(clyellow);
  rectangle(505,210, 565,270);
  line(535,210, 535,268);
  line(505,240, 563,240);
//Окно загорелось: конец
//Дым: начало
 for i:=i to 50 do
  begin
   k:=random(50);
   j:=random(30);
   setbrushcolor(clLtGray);
   setpencolor(clLtGray);
//   delay(10);
   ellipse(585-j,50-k, 588-j,53-k);
  end;
//Дым: конец
//Дом: конец
End.