Программа:

{znanija.com/task/43090055

<c> NaaMan}

program test;

 uses GraphABC;

begin

 Window.Init(700,300,200,200);

 for var i := 0 to 1 do

   for var j := 0 to 1 do begin

     SetBrushColor(RGB(255*i,255*j,127));

     FillCircle(i*100+50, j*100+50,50);

   end;

end.

Результат выполнения: