описать с помощью векторных команд следующие рисунки цвет заливки произвольный

Program qq;uses graphABC;beginsetwindowsize(1200,400);setpencolor(clblack);setpenwidth(5);centerwindow;//смайликcircle(600,200,180);floodfill(600,200,clyellow);circle(550,100,40);circle(650,100,40);floodfill(550,100,clwhite);floodfill(650,100,clwhite);line(550,300,650,300);line(600,250,600,150);//смайлик//домикrectangle(50,350,350,200);floodfill(200,250,clbrown);rectangle(125,300,275,225);floodfill(200,250,clblue);line(200,255,200,300);line(125,255,275,255);line(50,200,200,50);line(350,200,200,50);floodfill(200,100,clgreen);//домик//корабликline(850,250,1150,250);line(850,250,950,350);line(1100,350,1150,250);line(1100,350,950,350);line(1000,250,1000,50);line(1000,50,1100,100);line(1000,150,1100,100);floodfill(1010,125,clred);floodfill(1000,300,clorange);//корабликend.