Tildes.

[bit]

Saludos.

Adjunto código del programa:

program numero;
var
n:integer;

begin
writeln('Programa creado por Bit.');
write('Ingrese número entero positivo:');
readln(n);
while (n<=-1) do
begin
  writeln('Por favor, usted debe ingresar un número entero positivo:');
  readln(n);
  end;
writeln('Correcto,El número ingresado es un entero positivo');
readln;
end.

Al ejecutar el programa, no muestra los tildes correctamente.
Si por ejemplo uso el ° (Lo muestra incorrectamente en pantalla)
Utilizo free pascal, lazarus. Con el sistema operativo Windows.
¿Qué modificación le harías al código?

[Casimiro Noteví]

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración

Recuerda poner títulos descriptivos a tus preguntas, gracias.

[MAXIUM]

Debes usar la función AnsiToOem en las frases o palabras que lleven tildes cuando tu salida sea tipo consola

http://blog.kassebaum.eu/?p=13

[bit]

Gracias por la respuesta.
Sin embargo he encontrado otra forma.
Utilizo para escribir los tildes -->ASCII.

[MAXIUM]

Claro, pero en ese caso deberias aprenderte dichos códigos.

Mi idea era que pudieras leer sin problemas las palabras con tilde en el código fuente y a la vez la salida por línea de comando.

[Casimiro Noteví]

Empezado por bit

Utilizo para escribir los tildes -->ASCII.

Y a los que usen tu programa, ¿les darás una tabla escrita con los códigos?