Подарок Маме:)

uses crt,graph;
type Tpoint=record
            x,y:integer;
            end;
procedure Zvezda(x,y:integer);
var r,x1,y1,a,b,i:integer;
    p:array[1..11] of Tpoint;
begin
r:=150;
for a:=0 to 360 do
 begin
  x1:=x+round(r*sin(a*pi/180));
  y1:=y-round(r*cos(a*pi/180));
  if a mod 10=0 then
   begin
    b:=-18;
    for i:=1 to 10 do
     begin
      if i mod 2=0 then
       begin
        p[i].x:=x1+round(20*cos(b*pi/180));
        p[i].y:=y1-round(20*sin(b*pi/180));
       end
      else
       begin
        p[i].x:=x1+round(10*cos(b*pi/180));
        p[i].y:=y1-round(10*sin(b*pi/180));
       end;
      b:=b+36;
     end;
    p[11].x:=p[1].x;
    p[11].y:=p[1].y;
    MoveTo(p[1].x,p[1].y);
    SetColor(random(14)+1);
    for i:=1 to 11 do
    LineTo(p[i].x,p[i].y);
   end;
 end;
end;
procedure Ch_8(x,y:integer);
var c:integer;
begin
c:=random(14)+1;
Setcolor(c);
circle(x,y-80,25);
circle(x,y-80,45);
circle(x,y+40,55);
circle(x,y+40,85);
setfillstyle(1,c);
floodfill(x,y-120,c);
floodfill(x,y+120,c);
floodfill(x,y-40,c);
end;
var  x,y:integer;
begin
x:=0;
InitGraph(x,y,'');
x:=getmaxX div 2;
y:=getmaxY div 2;
repeat
Zvezda(x,y);
Ch_8(x,y);
delay(500);
until keypressed;
end.