Помогите, пожалуйста! Мне к завтрашнему дню нужно сделать программу,рисующую пейзаж с солнцем и радугой. У меня у родителей годовщина 15 лет, я даже подарок не купила. Благодарю за понимание! Дам 59 баллов!

uses graphABC; var i: integer;   procedure Montain (x,y,k: integer); begin setpenwidth(1); setpencolor(clgreen); line(x,y,x-(30*k),y+(30*k)); line(x,y,x+(30*k),y+(30*k)); line(x+(30*k),y+(30*k),x-(30*k),y+(30*k)); floodfill(x,y+10,clgreen); setpencolor(clbrown); line(x,y,x-(20*k),y+(20*k)); line(x,y,x+(20*k),y+(20*k)); line(x+(20*k),y+(20*k),x-(20*k),y+(20*k)); floodfill(x,y+10,clbrown); setpencolor(clwhite); line(x,y,x-(10*k),y+(10*k)); line(x,y,x+(10*k),y+(10*k)); line(x+(10*k),y+(10*k),x-(10*k),y+(10*k)); floodfill(x,y+5,clwhite); end;   begin setpencolor(clnavy); setwindowsize(900,600); clearwindow(clnavy); for i:=1 to 100 do     begin     setbrushcolor(rgb(random(255),random(255),random(255)));     circle(random(700)+200,random(180),3);     end; setbrushcolor(clgreen); rectangle(0,350,900,600); setpencolor(clblue); arc(900,1300,900,0,180); floodfill(800,500,clblue); Montain (500,150,7); Montain (700,170,6); Montain (300,200,5); Montain (200,270,3); Montain (600,270,3); Montain (400,270,2); Montain (50,300,2); setpencolor(clteal); arc(500,1250,900,80,180) arc(800,1250,900,95,180);floodfill(100,500,clOlive); setpencolor(clwhite); arc(100,100,50,-84,180); arc(70,130,40,-30,150); floodfill(100,100,clwhite); end. плагиат ,конечно, но всё же