repeat until pascal

    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.