Código Delphi [-] ... WriteLn('Presione una tecla'); repeat until KeyPressed; ...
... WriteLn('Presione una tecla'); repeat until KeyPressed; ...