{вычисление приращений для отскока}  
p:=x1; vx:=+1;
q:=y1; vy:=+1;
repeat
if ((p+vx)<x2) and ((p+vx)>x1) then p:=p+vx else if vx>0 then vx:=-1 else vx:=+1;
if ((q+vy)<y2) and ((q+vy)>y1) then q:=q+vy else if vy>0 then vy:=-1 else vy:=+1;
point(p,q);
lie(x1,y1,x2,y2);
until keypressed;