Измените программу из предыдущего задания так, чтобы шарик двигался по максимально возможному радиусу и был представлен в виде красной точки.
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.