... K2=0;ENDELSEBEGINK1:=X1-X2;K2:=Y2-Y1;REPEATG:=RANDOM(10);SOUND(G*400);PUTIMAGE(X2-R2,Y2-R1,Q^,XORPUT);PUTIMAGE(X1-R2,Y1-R1,P^,XORPUT);X2:=X2+D;X1:=X1-D;K1:=K1-D;PUTIMAGE(X2-R2,Y2-R1,Q^,XORPUT);PUTIMAGE(X1-R2,Y1-R1,P^,XORPUT);DELAY(2);NOSOUND;UNTIL ... 0;Var i,j,q,m:integer;PUTIMAGE(X2-R2,Y2-R1,Q^,XORPUT);PUTIMAGE(X1-R2,Y1-R1,P^,XORPUT);Y1:=Y1+D;Y2:=Y2-D;K2:=K2-D;PUTIMAGE(X2-R2,Y2-R1,Q^,XORPUT);PUTIMAGE(X1-R2,Y1-R1,P^,XORPUT);DELAY(2);NOSOUND;UNTIL ... K1=0;REPEATG:=RANDOM(20);SOUND(G*300);PUTIMAGE(X2-R2,Y2-R1,Q^,XORPUT);PUTIMAGE(X1-R2,Y1-R1,P^,XORPUT);Y1:=Y1+D;Y2:=Y2-D;K2:=K2-D;PUTIMAGE(X2-R2,Y2-R1,Q^,XORPUT);PUTIMAGE(X1-R2,Y1-R1,P^,XORPUT);DELAY(2);NOSOUND;UNTIL...