Попробовал циклический счет логарифма. Глюк сохраняется.
program zvyk;
var
x:real;
k,i:longint;
begin
k:=2147483648;
System.Console.Beep(520,125); {до, процедура для запуска звука}
for i:=1 to k do
x:=ln(5);
System.Console.Beep(880,125); {ля}
for i:=1 to k do
x:=ln(5);
System.Console.Beep(880,125); {ля}
for i:=1 to k do
x:=ln(5);
System.Console.Beep(784,125); {соль}
for i:=1 to k do
x:=ln(5);
System.Console.Beep(880,125); {ля}
for i:=1 to k do
x:=ln(5);
System.Console.Beep(698,125); {фа}
for i:=1 to k do
x:=ln(5);
System.Console.Beep(520,125); {до}
for i:=1 to k do
x:=ln(5);
System.Console.Beep(520,125); {до}
for i:=1 to k do
x:=ln(5);
System.Console.Beep(520,125); {до}
for i:=1 to k do
x:=ln(5);
System.Console.Beep(880,125); {ля}
for i:=1 to k do
x:=ln(5);
System.Console.Beep(880,125); {ля}
for i:=1 to k do
x:=ln(5);
System.Console.Beep(987,125); {си}
for i:=1 to k do
x:=ln(5);
System.Console.Beep(784,125); {соль}
for i:=1 to k do
x:=ln(5);
System.Console.Beep(520,375); {до с точкой, т.е. четвертная плюс пол четвертной}
for i:=1 to k do
x:=ln(5);
system.Console.Beep(520,125); {до}
for i:=1 to k do
x:=ln(5);
system.Console.Beep(587,125); {рэ}
for i:=1 to k do
x:=ln(5);
system.Console.Beep(587,125); {рэ}
for i:=1 to k do
x:=ln(5);
System.Console.Beep(987,125); {си}
for i:=1 to k do
x:=ln(5);
System.Console.Beep(987,125); {си}
for i:=1 to k do
x:=ln(5);
System.Console.Beep(880,125); {ля}
for i:=1 to k do
x:=ln(5);
System.Console.Beep(784,125); {соль}
for i:=1 to k do
x:=ln(5);
System.Console.Beep(698,125); {фа}
for i:=1 to k do
x:=ln(5);
System.Console.Beep(698,125); {фа}
for i:=1 to k do
x:=ln(5);
System.Console.Beep(880,125); {ля}
for i:=1 to k do
x:=ln(5);
System.Console.Beep(880,125); {ля}
for i:=1 to k do
x:=ln(5);
System.Console.Beep(784,125); {соль}
for i:=1 to k do
x:=ln(5);
System.Console.Beep(880,125); {ля}
for i:=1 to k do
x:=ln(5);
System.Console.Beep(698,375); {фа с точкой}
end.