Синий кружок должен двигаться треугольной траектории, программа завершается нажатием любой клавиши.

[Pan_rust]

Синий кружок должен двигаться треугольной траектории, программа завершается нажатием любой клавиши.

[Pan_rust]

Пожалуйста, помогите написать программу

[_-Re@l-_]

....
x:=...;
dx:=3;dy:=3;
setcolor(blue);
circle(x1,y1,radius);
repeat
         for i:=1 to 50 do
         begin
         setcolor(0);
         circle(x1,y1,radius);
         x1:=x1+dx;y1:=y1-dy;
         setcolor(blue);
         circle(x1,y1,raduis);
         delay(10000);
         end;
         dy:=-dy;
         for i:=1 to 50 do
         begin
             setcolor(0);
             circle(x1,y1,radius);
             x1:=x1+dx;y1:=y1+dy;
            setcolor(blue);
             circle(x1,y1,radius);
             delay(10000);
         end;
         dy:=0;
         while x1>x do
         begin
               setcolor(0);
               circle(x1,y1,radius);
               x1:=x1-dx;
               setcolor(blue);
               circle(x1,y1,radius);
               delay(10000);
         end;
         until keypressed;

[Pan_rust]

А можете полностью программу написать?