Описать с помощью векторных команд следующие рисунки (цвет заливки произвольный). - домик, лицо, карабль

Program qq; 
uses graphABC; 
begin 
setwindowsize(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.