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

Program Timer;

Uses Crt;

var i:longint;

begin

write ('Введите прмежуток времени в секундах:');

readln (i);

Delay (i*1000);

Sound (440); {нота Ля}

Delay (2000); {в течении 2 секунд}

NoSound;

write ('Нажмите любую клавишу для выхода:');

readkey;

end.