Вопрос по Turbo Pascal! Помогитеееее люди добрые)))

Question

uses crt; 
var s: string; 
 i,k: byte; 
begin 
write('s='); readln(s); 
for i:=1 to length(s)-1 do 
 if (s=' ') and (s[i+1]<>' ') then inc(k); 
writeln('Количество слов ',k+1); 
readln; 
end. 
Вот эта программа определяет количество слов в предложении. Как сделать, чтобы программа проверяла количество слов, и если оно непарное выводило звуковой сигнал (насчет сигнала не прошу, толькокак проверить на непарность:))

Евгения Карпеченко · Accepted Answer

if ODD(WordCount) then Delay(100); 
 
где WordCount - переменная с количеством слов.

Екатерина · Answer

Раздели k на 2 без остатка, если остаток 1 то непарное иначе парное. не помню уже операторов лет 10 назад паскаль забросил....

Александр · Answer

если MOD 2 не 0 то нечетное