АВ
Аня Волкова
var
Ch : Char;
…
Write('Press any key'); { Выводим надпись }
Ch := ReadKey; { Ожидаем нажатие клавиши }
while KeyPressed do { Очищаем буфер клавиатуры }
Ch := ReadKey;
Write(#13#32#32#32#32#32#32#32#32#32#32#32#32#32#13); { Удаляем надпись }