uses graphabc ; Var x,y,r:integer;
begin
setwindowsize (400,250);
setwindowtitle ('Окружности');
r:=10; x:=11; y:=11;
while x<800 do
begin circle(x,y,r); x:=x+20; end;
end.
