Question

Составьте программу рисования окружностей с центром в точке(200,200) и радиусами 10,20,30,40,50 ( примените команду "for")!!!

Answer 1

uses
  GraphABC;
  
var
  i: integer;

begin
  for i := 10 to 50 do
    if (i mod 10 = 0) then
      DrawCircle(200, 200, i);
end.

Answer 2

PascalABC.NET, работает...