Program tu4ki; uses crt,graph; procedure graphinterface; var GD,GM,CloudBordeCol,CloudCol: integer; begin Gd:=Detect; InitGraph(Gd,Gm,'c:\BP\BGI'); if GraphResult<>grOk then begin Halt(1); end; end; begin graphinterface; CloudBorderCol:=DarkGray; CloudCol:=LightGray; SetColor(CloudBorderCol); arc(120,100,45,315,40); arc(170,100,45,135,40); arc(220,100,225,360,40); arc(220,100,0,135,40); arc(170,100,225,315,40); sector(165,400,180,360,120,90); SetFillStyle(SolidFill,CloudCol); floodfill(170,100,CloudBorderCol); readkey; CloseGraph; end. |