Pascal/Turbo Pascal - Codificación en Pascal (Duda)

program infinito;

uses crt;

var

n,n1,c:real;

respuesta:char;

begin

textcolor(white);

gotoxy(1,1);

writeln('Programa creado por Benjam',#161,'n C.');

REPEAT

gotoxy(1,3);

write('Ingrese un n',#163,'mero: ');

readln(n);

write('Ingrese otro n',#163,'mero: ');

readln(n1);

c:=n+n1;

gotoxy(1,6);

writeln('El resultado es: ',c:2:2);

gotoxy(1,8);

write(#168,'Desea ingresar m',#160,'s n',#163,'meros? (S/N): ');

readln(respuesta);

gotoxy(1,3); (*Borra solo la coordenada 1,3 *)

CLREOL;

gotoxy(1,4);

CLREOL;

gotoxy(1,6);

CLREOL;

gotoxy(1,8);

CLREOL;

until (respuesta='n') or (respuesta='N');

gotoxy(1,3);

writeln('Presione un tecla para finalizar el programa.');

readkey;

end.

{Mira esto tu código escrito directo para poder escribir las tildes tienes que poner el teclado en español pero

el teclado del dos no de windows que ese ya lo tienes mira la forma a qui abajo}

program infinito;

uses crt;

var

n,n1,c:real;

respuesta:char;

begin

clrscr;

textcolor(white);

gotoxy(1,1);

writeln('Programa creado por Benjam¡n C.');

REPEAT

gotoxy(1,3);

write('Ingrese un n£mero: ');

readln(n);

write('Ingrese otro n£mero: ');

readln(n1);

c:=n+n1;

gotoxy(1,6);

writeln('El resultado es: ',c:2:2);

gotoxy(1,8);

write('¨Desea ingresar m s n£meros? (S/N): ');

repeat

   respuesta := upcase(readkey);

until respuesta in['S','N'];

gotoxy(1,3); (*Borra solo la coordenada 1,3 *)

CLREOL;

gotoxy(1,4);

CLREOL;

gotoxy(1,6);

CLREOL;

gotoxy(1,8);

CLREOL;

until (respuesta='n') or (respuesta='N');

gotoxy(1,3);

writeln('Presione un tecla para finalizar el programa.');

readkey;

end.

{Sige estos datos para poner para pascal el teclado en espa¤ol.

pulsa en [ iniciar luego en buscar programas y archivos entra Regedit ]

Ejecutalo  [ Busca HKEY_CURRENT_USER ]

[Busca Keyboard Layout]

pulsa en [ predeterminado ] en la ventana entra [ 40a ] y sal.

Ve a iniciar todos los programas accesorios simbolo del sistema entra

en la ventana del dos escrive  [ kb16 sp ] y enter

sal del dos con [ exit ] y enter.

ejecuta este programa y esta teclado pascal en epa¤ol.}

 program cambiateclado;

 {$M $4000,0,0}

 uses

   crt,dos;

 var

   f : text;

  begin

     assign(f,'c:\windows\system32\autoexec.nt');

  {$I-} reset(f); {$I+}

     if ioresult = 0 then

     begin

        close(f);

        append(f);

        write(f,'REM Install keyboard language lh kb16 sp');

        write(f,#10);

        close(f);

     end;

  {Puedes acerlo manual mente entrando en [ c:\windows\system32 ]

  y en la zona final del archivo autoexec.nt escrive esto con bloc de notas

  [ REM Install keyboard language lh kb16 sp ]}

  end.