Repita Hasta - Pascal

PROGRAM CHAR;
        USES WINCRT;

        VAR respuesta:CHAR;

BEGIN

     ClrScr;

     REPEAT
         WRITELN ('DESEA CONTINUAR: S/N '); READLN (respuesta);
     UNTIL respuesta='N';

END.