uses sound;
const t=9999;
var ar:array[0..t]of byte;
 i:word;
begin
randomize;
for i:=0 to t do ar[i]:=random(50)+25;
IF initsoundsystem(_init) then begin
writeln('OK');
PlaySample(@ar,t,14000,1);
end else writeln('ERROR');
readln;
end.