Домик

uses crt,graphABC;
 
procedure noch;
var i:integer;
begin
clrscr;
floodfill(10,15,clblack);delay(500);
Randomize;
for i:=1 to 1000 do begin
if i>=900 then delay(15);
setpixel(random(800),random(500),clwhite);end;
end;
procedure vosxod;
var x,y,r,i:integer;
begin
x:=600;y:=500;r:=55;
circle(x,y,r);floodfill(x,y-50,clyellow);
for i:=1 to 200 do begin
    delay(40);dec(y,2);clrscr;
    circle(x,y,r);floodfill(x,y-50,clyellow);
    end;
end;
procedure dom;
Begin
delay(1000);
rectangle(100,200,300,300);delay(1000);
floodfill(210,220,clgreen);delay(500);
line(200,100,100,200);delay(750);
line(200,100,300,200);delay(750);
floodfill(200,140,clbrown);delay(750);
Textout(180,230,'ÄÎÌ');delay(1000);
Textout(180,230,'   ');
floodfill(180,230,clgreen);delay(500);
end;
function shtaxet(a,b,c,d,del:integer):integer;
var s:integer;
begin
     s:=(a+b) div 2;
     line(s,c,a,c+15);
     line(s,c,b,c+15);
     c:=c+15;
     line(a,c,a,d);
     line(b,c,b,d);
     line(a,d,b,d);
     floodfill(a+15,c,clbrown);
     floodfill(a+15,d-5,clbrown);
     delay(del*4 div 3);
     circle(a+5,c+5,4);floodfill(a+5,c+5,clblack);
     delay(del);
     circle(b-5,c+5,4);floodfill(b-5,c+5,clblack);
     delay(del);
     circle(a+5,d-10,4);floodfill(a+5,d-10,clblack);
     delay(del);
     circle(b-5,d-10,4);floodfill(b-5,d-10,clblack);
end;
procedure zabor(var del:integer);
var c,d,i,k:integer;
begin
     c:=225;d:=350;i:=0;
     for k:=1 to 7 do begin i:=i+50;
     shtaxet(i,i+25,c,d,del);delay(del*2);end;
end;
procedure zakat;
var x,y,r,i,d:integer;
begin
x:=600;y:=100;r:=55;d:=0;
circle(x,y,r);floodfill(x,y-50,clyellow);
for i:=1 to 200 do begin
    delay(25);inc(y,2);clrscr;
                   rectangle(100,200,300,300);
                   floodfill(210,220,clgreen);
                   line(200,100,100,200);;
                   line(200,100,300,200);
                   floodfill(200,140,clbrown);
                   floodfill(180,230,clgreen);
                   zabor(d);
    circle(x,y,r);floodfill(x,y-50,clyellow);
    end;
end;
var d:integer;
Begin
d:=500;
noch;vosxod;
dom;zabor(d);
zakat;noch;
End.