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

Program DelayInPascal;
uses crt; //required for delay()
begin Writeln('Waiting 1 second...'); delay(1000); Writeln('Waiting 3.5 seconds...'); delay(3500); Write('Program ended!');
End.
//*Note: The delay() function in Pascal is in milliseconds
// Therefore, delay(1000) is 1 second delay