Составьте программу рисования окружностей в точке (200,200) и радиусами...

Question

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

Answer 1

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.