procedure open;
begin
 Graf;
 u1:=0; u2:=0; y7:=12;
 setcolor(4);
 setfillstyle(7,4);
 repeat
 PieSlice(300, 370, u1, u2, 210);
 u2:=u2+1;
 until u2=181;
   SetColor(black);
   SetTextStyle(DefaultFont, HorizDir, 12);
   OutTextXY(125, 288, 'Cave ');
   Inc(y7,TextHeight('Cave '));
   SetColor(2);
   SetTextStyle(DefaultFont, HorizDir, 2);
   OutTextXY(10, 372, 'This program was made by Jri Kurvits ');
   Inc(y7,TextHeight('This program was made by Jri Kurvits  '));
   SetColor(1);
   SetTextStyle(DefaultFont, HorizDir, 2);
   OutTextXY(109, 400, 'Press any key to continue ');
   Inc(y7,TextHeight('Press any key to continue '));
 readkey;
 CloseGraph;
end;