Логотип
Скачать .pas

uses GraphABC;
var r: integer;
begin
SetWindowSize(500,500);
r:=220;
for var i:=1 to 11 do
begin
circle(250,250,r);
r:=r-20;
end;
circle(250,250,10);
end.