Составьте программу рисования 10 концентрических окружностей с центром в точке (300,200) и радиусами 10,20,30,...100. (надо использовать while )

cgc

спс

uses GraphABC;var r: integer;begin  while r < 100 do begin    r := r + 10;    DrawEllipse(300-r,200-r,300+r,200+r);  end;end.