uses graph, crt;
var d, m, x1, y1, x2, y2, i, j:integer;
begin
d:=detect; initgraph(d, m, '');
cleardevice;
repeat
for i:=10 to 59 do
begin
cleardevice;
setcolor(blue);
    line(200, 100, 200, 400);
    line(400, 100, 400, 400);
    line(180, 150+i, 420, 150+i);
    line(180, 200+i, 420, 200+i);
    line(180, 250+i, 420, 250+i);
    line(180, 300+i, 420, 300+i);
    line(180, 350+i, 420, 350+i);
     x1:=x1+5;
    y1:=y1+5;
    x2:=x2+5;
    y2:=y2+5;
delay(20);
setcolor(black);
end;

{for i:=50 to 100 do
begin
     line(200, 100, 200, 400);
    line(400, 100, 400, 400);
    line(180, 150, 420, 150);
    line(180, 200, 420, 200);
    line(180, 250, 420, 250);
    line(180, 300, 420, 300);
    line(180, 350, 420, 350);
    x1:=x1+5;
    y1:=y1-5;
    x2:=x2+5;
    y2:=y2-5;}
{readln;}
until keypressed;
end.