uses crt,graph;
var gd,gm:integer;
    i,x1,y1,x2,y2,x3:integer;
begin
     gd:=detect;
     initgraph(gd,gm,'');
     {лестница}
     x1:=50;x2:=120;y1:=400;y2:=350;
     x3:=round(x1+(x2-x1)/2);
     for i:=1 to 6 do begin
     line(x1,y1,x2,y1);line(x2,y1,x2,y2);
     x1:=x1+70;y1:=y1-50;x2:=x2+70;y2:=y2-50;
     end;
     {цыпленок}
     x1:=50;x2:=120;y1:=400;y2:=350;
     for i:=1 to 6 do begin
     x3:=round(x1+(x2-x1)/2);
     setcolor(15);
     line (x3,y1,x3,y2);
     ellipse(x3,y2-30,0,360,20,30);
     circle(x3+15,y2-70,15);
     putpixel(x3+25,y2-70,17);
     delay(50000);{смотрим на ципленка}
     setcolor(0);{стираем ципленка}
     line (x3,y1,x3,y2);
     ellipse(x3,y2-30,0,360,20,30);
     circle(x3+15,y2-70,15);
     putpixel(x3+25,y2-70,0);
     x1:=x1+70;y1:=y1-50;x2:=x2+70;y2:=y2-50;{смещаем координаты}
     end;
readln;
closegraph;
end.