Паскаль ждет ключа
Program PauseUntilKey;
Begin
writeln('Press any key to continue...');
readln(); //pause program until any key is pressed
writeln('Program Resumed!');
End.
ALeonidou