“Pascal naciśnij dowolny klawisz, aby kontynuować” Kod odpowiedzi

Pascal naciśnij dowolny klawisz, aby kontynuować

Program PauseUntilKey;

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