document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. Program Lesson4_Program4;
  2. Uses Crt;
  3.  
  4. Var Ch : Char;
  5.  
  6. Begin
  7.  Writeln(\'Tekan \'\'q\'\' untuk keluar...\');
  8.  Ch := Readkey;
  9.  While Ch <> \'q\' do
  10.   Begin
  11.    Writeln(\'Ku bilang tekan \'\'q\'\' untuk keluar!!\');
  12.    Ch := Readkey;
  13.   End;
  14. End.
');