Написать программу-таймер, которая по истечении заданного промежутка времени, величина которого вводится с клавиатуры, выдает звуковойсигнал.
Program Timer; Uses Crt; var i:longint; begin write('Введите прмежуток времени в секундах:'); readln(i); Delay(i*1000); Sound(440); {нота Ля} Delay(2000);{в течении 2 секунд} NoSound; write('Нажмите любую клавишу для выхода:'); readkey; end.