Grafik Sederhana Pada Pascal

Program :
program grafik1;
uses graph;

var gd,gm:integer;
    maxx,maxy:integer;
    i:integer;

begin
     gd:=detect;
     gm:=detect;
     initgraph(gd,gm,'c:\tp\bgi');
     maxx:=round(getmaxx/2);
     maxy:=round(getmaxy/2);
     for i:=1 to 50 do
     begin
          setcolor(i);
          circle(maxx,maxy,50+i*2);
     end;
     readln;
     closegraph;
end.

Hasil :