Статическое изображение: голубое небо, красное солнце, синее море

uses graphabc;
begin
  SetBrushColor(clCyan);
  Rectangle(0,0,window.width,window.height div 2);
  setBrushColor(clred);
  circle(window.Width-100,50,20);
  SetBrushColor(clBlue);
  Rectangle(0,window.height div 2,window.width,window.height);
end.

uses
  GraphABC;
 
const
  x0 = 300;
  y0 = 250;
  n = 20; //количество лучей
  R = 100; //радиус солнца (можно изменять)
 
var
  i, x1, y1, R1, R4, d: integer;  
  t: real;
  c: ColorType;
 
begin 
  MaximizeWindow;
  
  { Небо: }
  SetBrushColor(ClSkyBlue); 
  Rectangle(0, 0, WindowWidth, WindowHeight - 100);
  
  { Рисуем лучи: }    // <--- ЛУЧИ МОЖНО УДАЛИТЬ
  R1 := 2 * R; //радиус лучей в 2 раза больше радиуса солнца
  for i := 1 to n do begin
    SetPenColor(clYellow); //цвет лучей
    t := 2 * pi * i / n; //угол поворота луча
    if odd(i) then begin // лучи с нечетным номером:
      SetPenWidth(2); //толщина луча
      R1 := R1 - 40 //уменьшаем радиус на 40 пикселей
    end // лучи с четным номером:
    else begin
      SetPenWidth(3); //толщина луча
      R1 := R1 + 40 //увеличиваем радиус луча на 40 пикселей
    end;
    x1 := round(R1 * cos(t)); //абсцисса луча на окружности
    y1 := round(R1 * sin(t)); //ордината луча на окружности  
    Line(x0, y0, x0 + x1, y0 - y1); //рисуем луч
  end;
 
 { Рисуем солнце: }
  SetBrushColor(ClRed); //цвет солнца
  SetPenColor(ClYellow); //цвет границы солнца
  Circle(x0, y0, R); //рисуем солнышко
 
 { Рисуем облака: }  // <--- ОБЛАКА МОЖНО УДАЛИТЬ
  c := RGB(220, 220, 220);
  SetPenColor(c);
  SetBrushColor(c);
  Ellipse(500, 50, 600, 130);
  Ellipse(550, 40, 700, 140);
  Ellipse(630, 50, 780, 140);
  c := RGB(240, 240, 220);
  SetPenColor(c);
  SetBrushColor(c);
  Ellipse(10, 30, 80, 80);
  Ellipse(40, 25, 120, 85);
  Ellipse(80, 25, 150, 85);
  
  { Море: }
  SetBrushColor(ClBlue); //цвет моря
  SetPenColor(ClBlue);
  Rectangle(0, WindowHeight - 100, WindowWidth, WindowHeight);
end.