Построить на экране солнце,что всходит : желтый полукруг в нижней части экрана, к краям экрана равномерно расходятся 24 красных луча; фон синий — Pascal(Паскаль)

uses
  crt,graph;
var
  i,j,k,x,y,r1,r2,r3,r4: integer;
begin
  i:=detect;
  j:=detect;
  InitGraph(i,j,'');
  SetBkColor(1);
  ClearDevice;
  SetColor(4);
  SetFillStyle(1,14);
  FillEllipse(GetMaxX div 2,GetMaxY,100,100);
  while k<=360 do
  begin
    x:=GetMaxX div 2;
    y:=GetMaxY;
    r1:=round(x+(100*cos(-k*pi/360)));
    r2:=round(y+(100*sin(-k*pi/360)));
    r3:=round(x+(300*cos(-k*pi/360)));
    r4:=round(y+(300*sin(-k*pi/360)));
    line(r1,r2,r3,r4);
    k:=k+15;
  end;
  readkey;
end.