Program Lesson4_Program4;
Uses Crt;

Var Ch : Char;

Begin
 Writeln('Tekan ''q'' untuk keluar...');
 Ch := Readkey;
 While Ch <> 'q' do
  Begin
   Writeln('Ku bilang tekan ''q'' untuk keluar!!');
   Ch := Readkey;
  End;
End.