document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1.     Uses Crt;
  2.     Var YN : String;
  3.      
  4.     Begin
  5.      Writeln(\'Y(YES) or N(NO)?\');
  6.      Repeat {Ulangi code setidaknya satu kali}
  7.       YN := Readkey ;
  8.       If YN = \'y\' then Halt; {Halt - exit}
  9.       If YN = \'n\' then Writeln(\'kenapa tidak? Keluar...\');
  10.       Delay(1800); { memberi jeda 1800 milisecond}
  11.      Until (YN = \'y\') OR (YN = \'n\');
  12.     End.
');