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:&#92-bp&#92-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.