unit doga;

interface

 uses graph, crt;
      procedure rovne(x11,y11,x12,y12,x21,y21,x22,y22,element:integer);
      procedure povorot(X,Y,angle:integer);
 implementation

procedure rovne(x11,y11,x12,y12,x21,y21,x22,y22,element:integer);
 begin
        setcolor(lightgray);
        line(x11,y11,x12,y12);
        line(x21,y21,x22,y22);
        line(x11,y11,x21,y21);
        line(x12,y12,x22,y22);

        setfillstyle(solidfill,lightgray);
        floodfill(round((x11+x21)/2),round((y11+y22)/2),lightgray);

 end;
procedure povorot(X,Y,angle:integer);
 begin
    setcolor(lightgray);
    ellipse(x+200,349-y,angle,90+angle,340,340);
    ellipse(x+100,349-y,angle,90+angle,240,240);
    line(x+540,349-y,x+340,349-y);
    line(x+200,349-y-340,x+100,349-y-240);
    setfillstyle(solidfill,lightgray);
    floodfill(x+400,349-y-150,lightgray);

 end;

 end.