uses GraphABC;
var i:byte;
begin
SetWindowHeight(500);
SetWindowWidth(500);
for i:=10 downto 1 do
if i=1 then
SetBrushColor(clRed);
circle(250,250,25*i);
end
else
end.
uses GraphABC;
var i:byte;
begin
SetWindowHeight(500);
SetWindowWidth(500);
for i:=10 downto 1 do
if i=1 then
begin
SetBrushColor(clRed);
circle(250,250,25*i);
end
else
circle(250,250,25*i);
end.