Dufam, ze takto nejak by to malo vyzerat
Kód:
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.
