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

Question

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

Answer 1

Uses graphabc;
var x,y,r:integer;
begin
clearWindow(clViolet);
setBrushColor(clGreen); 
x:=22; y:=22; r:=20; 
while x<660 </span>do 
begin
circle(x,y,r); 
x:=x+40; 
end;
end.