Рисование луны — Pascal(Паскаль)

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.