program maja;
uses graph;
var
d,m:integer;
begin
d:=detect;  InitGraph(d,m,' ');
outtextxy(10,10,'TERE,SIIN ON MINU MAHAJA"ETUD MAJA,MIDA VALGUSTAB SUUR SOE PA"IKE!');
setcolor(green);
rectangle(300,300,100,200);
setcolor(red);
line(80,200,100,200);
line(80,200,150,150);
line(300,200,320,200);
line(250,150,320,200);
line(150,150,250,150);
{korsten}
setcolor(white);
line(175,150,175,125);
line(225,150,225,125);
line(175,125,225,125);
{uks}
setcolor(blue);
line(175,300,175,225);
line(225,300,225,225);
line(175,225,225,225);
{aken}
setcolor(magenta);
line(120,275,120,225);
line(140,275,140,225);
line(160,275,160,225);
line(120,225,160,225);
line(120,275,160,275);
{aken}
setcolor(yellow);
circle(200,250,10);{uksel}
circle(265,250,20);
{paike}
setfillstyle(1,yellow);
fillellipse(400,100,50,50);
readln;
closegraph;
end.