kitchenrecords

Verified answer

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.