Нарисовать круг синего/красного/желтого/зеленого цвета, в зависимости от его расположения в 1-4 четвертях окна 200х200 пикселей. (В Паскале)

Программа:

{https://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.

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