помогите срочно пожалуйсто!

+ 0 -

Layger

19 мая 2016 г., 17:14:39 (7 лет назад)

 program abc;
uses graphabc;
begin
SetWindowSize(640,480);
setpencolor(clBlack);
line(160,340,200,340);
line(200,340,200,320);
line(200,320,160,320);
line(160,320,160,340);
line(200,340,200,280);
line(260,340,300,340);
line(300,340,300,320);
line(300,320,260,320);
line(260,320,260,340);
line(260,340,260,280);
line(160,280,300,280);
line(300,280,240,158);
line(220,158,160,280);
line(260,200,320,240);
line(200,200,160,220);
line(160,220,140,200);
line(200,80,220,80);
line(220,80,220,100);
line(220,100,200,100);
line(200,100,200,80);
line(240,80,260,80);

line(260,80,260,100);
line(260,100,240,100);
line(240,100,240,80)
line(230,100,240,120);
line(240,120,220,120);
line(220,120,230,100);
circle(230,110,50);
circle(90,90,30);
setpencolor(clRed);
line(200,140,260,140);
setpencolor(clBlack);
line(120,180,120,140);
line(120,140,140,160);
ine(140,160,100,160);
line(100,160,120,180);
setpencolor(clBrown);
line(240,60,280,80);
line(280,80,300,100);
line(300,100,300,160);
line(280,80,290,100);
line(290,100,290,160);
line(220,60,180,80);
line(180,80,160,100);
line(160,100,160,160);
line(180,80,170,100);
line(170,100,170,160);
setpencolor(clLime);
line(140,200,100,120);
floodfill(220,240,clBlue);
floodfill(280,330,clBrown);
floodfill(180,330,clBrown);
floodfill(130,157,clYellow);
floodfill(110,165,clYellow);
floodfill(90,90,clGreen);
floodfill(260,120,clCream);
setpixel(250,90,clBlack);
setpixel(210,90,clBlack);
setpencolor(clBlack);
line(240,80,260,80);
line(260,80,260,100);
line(260,100,240,100);
line(240,100,240,80);
line(200,80,220,80);
line(220,80,220,100);
line(220,100,200,100);
line(200,100,200,80);
line(230,100,240,120);
line(240,120,220,120);
line(220,120,230,100);
end.