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