⇢ 
Евгений Хренов
В каком это паскале?
program BipProc;
Var N : Integer;
Procedure Bip;
Begin
Sound(600); {включение звука, частота 600Гц}
Delay(100); {Задержка 100мс}
NoSound; {выключение звука}
End.
Begin
Write(‘Введи ненулевое число’); Readln(N);
If N=0 then
Begin Writeln(‘Вы ошиблись’); Bip; end;
End.
В каком это паскале?