program plat;
uses
GraphABC;
var
x, y, randomX, randomY: integer;
kx, ky,rX,rY,ranX,ranY: real;
procedure Moving;
begin;
kx := (randomX - x) / 500;ky := (randomY - y) / 500;
if kx<2 then kx:=(randomX - x) / 1.9;
if ky<2 then ky:= (randomY - y) / 1.9;
x := round(x + kx);
y := round(y + ky);
if x=randomX then begin
if y=randomY then begin
randomX:=random(640);
randomY:=random(480);
end;
end;
end;
procedure Drawing;
begin;
Rectangle(0,0,640,480);
lineto(x, y, clred);
putpixel(randomX, randomY, clblack);
sleep(35);
end;
begin
randomize;
x := 1;y := 1;randomX := random(640);randomY := random(480);
for var i := 1 to 99999999999 do
begin
Moving;LockDrawing; Drawing; Redraw;
end;
end.