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

Program axaxa;

uses graphabc;

var i, a, d:integer;

begin

a:=200;

d:=50;

setwindowsize (640,480);

setpencolor (clbrown);

setpenwidth (2);

for i:=1 to 5 do

begin

circle (a, a, d);

d:=d-10;

end;

end.