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 do 
begin
circle(x,y,r); 
x:=x+40; 
end;
end.