Даю 50 баллов
Составьте программу рисования окружностей

uses graphabc;

var

 i: integer;

begin

 setwindowsize(600, 101);

 for i := 0 to 5 do

 begin

   circle(50 + i * 100, 50, 50);

   circle(50 + i * 100, 50, 15);

 end;

end.