Uses Crt;
Var YN : String;
Begin
Writeln(\'Y(YES) or N(NO)?\');
Repeat {Ulangi code setidaknya satu kali}
YN := Readkey ;
If YN = \'y\' then Halt; {Halt - exit}
If YN = \'n\' then Writeln(\'kenapa tidak? Keluar...\');
Delay(1800); { memberi jeda 1800 milisecond}
Until (YN = \'y\') OR (YN = \'n\');
End.