Задача 17.4. Скласти програму для зображення на екранi рухомого кола.

Program Pr1;//Для PascalABC
Uses GraphABC, CRT;
Var x,y,i:integer;
Const r=30; step=10;
Begin
x:=50;
y:=100;
 While x<=300 do
 Begin
    SetPenColor(clRed);
    Circle(x,y,r); {Намалювати}
     Delay(100); {Затримка 0.1с.}
     SetPenColor(clWhite); Circle(x,y,r); {Витерти}
     x:=x+step; {Задати новi координати}
 End;
end.

Завдання 17.4. Скласти програму для зображення на екранi рухомого прямокутника.