Pascal espera por chave

Program PauseUntilKey;

Begin
    writeln('Press any key to continue...');
    
    readln();      //pause program until any key is pressed
    
    writeln('Program Resumed!');
End.
ALeonidou