procedure win;
begin
 Graf;
 SetColor(7);
   SetTextStyle(DefaultFont, HorizDir, 3);
   OutTextXY(100, 380, 'Cangratulations');
   Inc(y7,TextHeight('Cangratulations '));
 outtextxy(150,402, '  You win!');
 setcolor(blue);
 rectangle(99,379, 470, 425);
 setcolor(green);
 setfillstyle(solidFill, white);
 fillellipse(200, 100, 50, 100);
 fillellipse(400, 100, 50, 100);
 setfillstyle(SolidFIll, red);
 fillellipse(300, 230, 100,  50);
 ellipse(300, 200, 210, 330, 230, 130);
 ellipse(300, 222, 165, 375, 230, 130);
 setfillstyle(solidFill, black);
 fillellipse(200, 100, 25, 40);
 fillellipse(400, 100, 25, 40);
 readkey;
 closegraph;
end;