Узор из окружностей

[Дэдпул]

Ребят помогите.В паскале новичок.Нужно вывести узор из окружностей .Мне тут ребята помогли сделать,но тут окружности рисуются рандомно .Нужно что бы рисовал какой нибудь узор .Вот код

uses GraphABC; 
begin var d := ReadInteger('d =');
WriteLn(d); d := d shr 1; 
WriteLn('0-чёрный 1-красный 2-зелёный 3-жёлтый 4-синий 5-фиолетовый 6-бирюзовый 7-белый');
var c := ReadInteger('c =') and 7;
WriteLn(c); LockDrawing; if c and 7 > 0 then begin Brush.Color := rgb(0,0,0); 
Window.Clear(rgb(0,0,0)); end else Window.Clear;
Pen.Color := rgb((c and 1) * 255, ((c shr 1) and 1) * 255, ((c shr 2) and 1) * 255);
for var i := 1 to 100 do DrawCircle(Random(d, Window.Width - d), Random(d, Window.Height - d), d);
unLockDrawing 
end.

[alexcoder]

uses GraphABC;
var
x,y:integer;
begin
SetWindowSize(700,500);
for y:=0 to 499 do
  for x:=0 to 699 do
    begin
    if trunc((x*x+y*y)/200) mod 2 = 1 then
      PutPixel(x,y,clwhite)
    else
      PutPixel(x,y,clblack);
    end;
end.