Question

Создать программу Паскаль луну

Answer 1

Напиши всё простенько:
uses GraphABC;
begin   Circle(100,100,60);
 Circle(130,100,50);  
 SetPenColor(ClWhite);  
 Circle(137,100,50); end.