Задание 4. Измените программу из предыдущего задания так, чтобы шарик двигался по максимально возможному радиусу и был представлен в виде красной точки

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

uses GraphABC;

var a, x, y, r, x0, y0: integer;

begin

r:= 180;

x0:= 300;

y0:= 250;

for a:= 0 to 360 do

begin

X:= round(x0 + r * cos(a *

3.14/180));

Y:= round(y0 + r * sin(a *

3.14/180));

circle (x,y,10);

Floodfill(round(x0 + r * cos(a *

3.14/180)),round(y0 + r * sin(a *

3.14/180)),clred);

SetPenWidth (5);

SetPenColor (clred);

sleep(5);

clearWindow;

end;

end.