Хід роботи

1. uses graphABC; var x1,y1,x2,y2,i,j: integer; procedure Trava; begin for i:=1 to 1000 do begin x1:=random(801); y1:=random(251)+390; x2:=x1+random(10)-5; y2:=y1+random(20)+10; setpencolor(rgb(random(255),255,random(255))); line(x1,y1,x2,y2); end; end; procedure Oblako(x2,y2: integer); begin setpencolor(clwhite); setbrushcolor(clwhite); rectangle(x2,y2-10,x2+100,y2); circle(x2,y2-10,10); circle(x2+100,y2-10,10); circle(x2+20,y2-20,20); circle(x2+80,y2-20,20); circle(x2+50,y2-30,20); end; procedure Zabor; begin x1:=00; setbrushcolor(clgreen); for i:=1 to 20 do begin rectangle(x1,450,x1+20,600); x1:=x1+40; end; rectangle(0,510,800,530); end; procedure Yabloki; begin for i:=1 to 10 do begin x1:=random(141)+600; y1:=random(201)+200; setpencolor(clred); setbrushcolor(clred); circle(x1,y1,10); setpencolor(clyellow); setbrushcolor(clyellow); circle(x1-4,y1-4,5); end; end; procedure Dym(x1,y1,x2,y2: integer); begin setpencolor(clsilver); setbrushcolor(clsilver); ellipse(x1,y1,x2,y2); setpencolor(clgray); setbrushcolor(clgray); ellipse(x1+5,y1+5,x2-15,y2-15); end; begin setwindowsize(800,600); setpencolor(clblue); setbrushcolor(clblue); rectangle(0,0,800,400); setpencolor(clgreen); setbrushcolor(clgreen); rectangle(0,400,800,600); Trava; Oblako(-50,200); Oblako(100,100); Oblako(500,200); Oblako(600,130); setpencolor(clblack); setbrushcolor(clSilver); rectangle(50,300,250,500); rectangle(250,500,500,300); line(50,300,150,200); line(150,200,250,300); line(400,200,500,300); line(150,200,400,200); floodfill(150,250,clsilver); floodfill(300,250,clMaroon); setbrushcolor(claqua); rectangle(110,360,190,440); rectangle(280,360,360,440); setbrushcolor(clSilver); rectangle(280,180,320,230); setbrushcolor(clMaroon); rectangle(400,350,470,500); setbrushcolor(claqua); circle(150,270,20); setbrushcolor(clBrown); rectangle(650,400,670,500); setbrushcolor(clgreen); ellipse(570,150,750,420); Yabloki; Zabor; Dym(320,130,380,170); Dym(400,100,480,150); Dym(490,40,600,100); Dym(630,0,750,70); end.