geany (pascal) не работает звук.

[max220]

program df;
uses crt;
var i : integer;
BEGIN
for i:=1000 to 4000 do
begin
sound(i);
delay(10);   
end;   
END.
нет звука, поиски в интернете ничего не дали.

[Yurror]

и не будет
это управление спикером из под доса =)
я балдею с вас. где вы находите эти примеры?

[max220]

и не будет
это управление спикером из под доса =)
я балдею с вас. где вы находите эти примеры?

примерно так я ипредставлял, но надеялся что FreePascal для совместимости предумал чтото свое ...
а на примеры не обращайте внимание это я сам такой позорный код сделал ... просто устал уже очень