Repita until

program logicander;

Uses WinCrt;

Var

   resp : char;

Begin

Repeat

WriteLn ( '¿Desea finalizar el programa? S/N' );

ReadLn (resp);

Until resp='N';

end.