Составьте программу которая рисует 10 окружностей зелёного цвета разных радиусов с одним центром.

Ответы:

Uses graphabc,

var x,y,r:integer,

begin

clearWindow(clViolet),

setBrushColor(clGreen), 

x:=22, y:=22, r:=20, 

while x&lt,660 do 

begin

circle(x,y,r), 

x:=x+40, 

end,

end.