uses graphABC;
var x,y,a,h:integer;
BEGIN;
ellipse(290,25,310,175);             //овалы
ellipse(270,175,330,210);
ellipse(230,210,370,250);
ellipse(190,250,410,290);
ellipse(170,290,430,330);
floodfill(300,100,RGB(255,0,255));     //заливка овалов
floodfill(300,230,RGB(67,34,89));
floodfill(300,270,RGB(67,34,89));
floodfill(300,320,RGB(67,34,89));
sleep(10);                            //на всякий случай
circle(200,320,80);                    //шарик
line(200,320,280,320);
line(200,320,160,250);
floodfill(200,340,RGB(230,35,35));    //заливка шарика
floodfill(200,280,RGB(45,180,90));
setfontsize(30);
TextOut(440,70,'Н');                    //'Н', который не смог
x:=500;                                //кубик
y:=150;
a:=100;
h:=20;
line(x,y,x-a+h,y-h);
line(x-a+h,y-h,x-a+h,y-a-h);
line(x-a+h,y-a-h,x,y-a);
line(x,y-a,x,y);
floodfill(x-10,y-h,clRed);
{правая грань}
setpencolor(clBlue);
line(x,y,x+a-h,y-h);
line(x+a-h,y-h,x+a-h,y-a-h);
line(x+a-h,y-a-h,x,y-a);
line(x,y-a,x,y);
floodfill(x+10,y-h,clBlue);
{верхняя грань}
setpencolor(clGreen);
line(x-a+h,y-a-h,x,y-a);
line(x+a-h,y-a-h,x,y-a);
line(x+a-h,y-a-h,x,y-a-2*h);
line(x,y-a-2*h,x-a+h,y-a-h);
floodfill(x,y-a-h,clGreen);
end.