pascal delay

program DelayExample;
uses
  SysUtils;

begin
  WriteLn('Delaying for 2 seconds...');
  Delay(2000); // Delay for 2000 milliseconds (2 seconds)
  WriteLn('Delay complete.');
end.