Program v PASCAL-e

program grafika;
uses crt,graph;
var gd,gm,i,r1,r2:integer;
begin
     initgraph(gd,gm,'c:\progra~1\TP\bgi');
     cleardevice;
     randomize;
     r1:=random(640); { rozlisenie }
     r2:=random(480); {   640x480  }
     for i:=1 to 250 do
      begin
       cleardevice;
       circle(r1,1,i);
       circle(1,r2,i);
       delay(25);
      end;
     readln;
     closegraph;
end.