uses crt,graph;
 var gd,gm,choice:integer;
 label 1,2,3;
 begin;
 clrscr;
 writeln('1.полнолуние, 2.1/2 луны, 3.месяц');
 readln(choice);
 initgraph(gd,gm,'c:\bp\bgi');
 IF choice = 1 THEN GOTO 1;
 IF choice = 2 THEN GOTO 2;
 IF choice = 3 THEN GOTO 3;
 halt;
1:
CIRCLE (320, 240, 100);
floodfill(320,240,15);
repeat;
until keypressed;
halt;
2 :
arc(320, 240, 90, 270, 100);
LINE (320, 140,320, 340);
floodfill(300,240,15);
repeat;
until keypressed;
halt;
3 :
arc(320, 240, 90, 270, 100);
arc(490, 240, 150, 210, 200);
floodfill(285,240,15);
repeat;
until keypressed;
halt;
closegraph;
end.