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