Нарисовать пальму, море, солнце

uses graphABC;
var i,x,y,k:integer;
 
begin
setwindowsize(800,500);
clearwindow(clblue);
setpencolor(claqua);
setbrushcolor(claqua);
rectangle(0,300,800,450);
setpencolor(clblue);
setbrushcolor(clblue);
for i:=1 to 200 do
    begin
    x:=random(761); y:=random(141)+300; k:=random(20);
    ellipse(x,y,x+20+k,y+5);
    end;
setpencolor(rgb(255,247,178));
setbrushcolor(rgb(255,247,178));
rectangle(0,450,800,500);
setpencolor(clgreen);
setbrushcolor(cllime);
circle(120,170,100);
circle(670,170,100);
setpencolor(clbrown);
setbrushcolor(rgb(209,149,99));
x:=40; y:=470; k:=0;
for i:=1 to 20 do
    begin
    rectangle(x+k,y,x+30,y-15);
    x:=x+3;
    y:=y-15;
    k:=k+1;
    end;
x:=750; y:=470; k:=0;
for i:=1 to 20 do
    begin
    rectangle(x-k,y,x-30,y-15);
    x:=x-3;
    y:=y-15;
    k:=k+1;
    end;
setpencolor(clyellow);
setbrushcolor(clyellow);
circle(500,100,50);
end.