uses graph,crt;
const leftlimit=200; rightlimit=600; uplimit=100; downlimit=300;
      rl=rightlimit-leftlimit-17; ll=0+17; up=0+17; dl=downlimit-uplimit-17;
var gd,gm: integer;
    x,y,dx,dy: integer;
procedure sunet; begin sound(100); delay(10); nosound; end;
begin
gd:=InstallUserDriver('SVGA256',nil); gm:=3;
InitGraph(gd,gm,'c:\tp\bgi'); {<--Introduceti aici calea spre Svga256.bgi!}
setfillstyle(1,25); bar(0,0,getmaxx,getmaxy);
setfillstyle(1,22); bar(leftlimit,uplimit,rightlimit,downlimit);
 setcolor(0); rectangle(leftlimit,uplimit,rightlimit,downlimit);
randomize;
x:=random(rl-17)+17; y:=random(dl-17)+17; dx:=1; dy:=1; delay(10);
repeat
if x>rl then begin dx:=-1; sunet; end; if x<ll then begin dx:= 1; sunet; end;
if y<up then begin dy:= 1; sunet; end; if y>dl then begin dy:=-1; sunet; end;

x:=x+dx; y:=y+dy;
setcolor(0);  circle(200+x,100+y,15); delay(100);
setcolor(22); circle(200+x,100+y,15);

until keypressed;
readkey; closegraph;
end.