Question

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

Answer 1

uses GraphABC;
var n: integer;
begin
  n:=10;
  SetBrushColor(clGreen);
  while n<>0 do
  begin
    Circle(150,150,10*n);
    n:=n-1;
  end;
end.

P.S. Программа написана на Pascal ABC.