program pilt;
uses graph;
var l,d, m, x, y,i:integer;
 v,n:string;
begin
writeln('Sinu nimi,palun');
readln(n);
l:=length(n);
d:=detect;InitGraph(d,m, '');
outtextxy(235,35,'TERE TULEMAST  '+n);
rectangle(200,30,380+l*8,50); {tablica}
setcolor(green);
setfillstyle(1,6);
line(160,170,310,80);              {-krosha}
line(310,80,460,170);
rectangle(160,170,460,280);         {dom}
floodfill(getmaxx-310,100,green);
setfillstyle(1,15);
line(360,90,360,110);            {truba}
line(385,90,385,125);
line(360,90,385,90);
floodfill(365,100,green);
setfillstyle(1,6);
rectangle(390,210,445,280);          {dver'}
floodfill(410,230,green);
setfillstyle(1,15);              {cvet doma}
  begin
  x:=210;y:=220;
  for i:=1 to 4 do
    begin
    circle(x,y,10);
    x:=x+45;
    end;
  end;
floodfill(getmaxx-180,180,green);
line(160,500,390,280);             {doroga}
line(400,500,445,280);
line(160,500,400,500);
setfillstyle(LineFill,14);
floodfill(getmaxx-260,460,green);
line(550,210,550,400);
ellipse(550,280,0,360,50,100);
setfillstyle(1,10);
floodfill(550,200,green);
setcolor(black);
line(390,250,400,250);
setcolor(yellow);
circle(580,60,25);                 {solnce}
floodfill(580,60,yellow);
setfillstyle(1,14);
line(95,360,145,360);        {sidenje}
line(60,370,110,370);
line(60,370,95,360);
line(110,370,145,360);
setfillstyle(1,brown);
floodfill(100,365,yellow);
line(80,300,60,370);         {kacheli}
line(130,300,110,370);
line(80,300,95,360);
line(130,300,145,360);
line(30,400,60,300);
line(60,300,95,380);
line(60,300,150,300);
line(150,300,120,400);
line(150,300,185,380);
readln; closegraph;
end.