Проверьте работает ли у вас звук в Паскаль в этой программе!!

[messiman]

Найти количество слов и если она нечетная, то подать звуковой сигнал...

Uses crt;
Var
  ch: Char;
  i: Integer;
BEGIN
While not Eoln do
begin
  Read(ch);
  If ch=' ' Then Inc(i);
end;
i:=i+1;
Writeln('Кол-во слов= ',i);
If i mod 2<>0 Then
Sound(880);
END.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

во-первых, Ваш код звук запустит, а выключить - не выключит.
надо по такой схеме - Sound(НужнаяЧастота); Задержка; Выключить звук

    sound(880); delay(150); nosound;

во-вторых, вполне возможно, что новая Windows (Vista / W7 / W8 ) не даёт вашей дос программе доступа к портам. Поэтому, рекомендую запускать программу под любым досэмулятором. Например, DosBox.