[Pascal] Conocer la letral del DNI

[Hazama]

Recientmente he estado aprendiendo programar en pascal,utilizado el compilador Free Pascal y he realizado esta aplicacion a modo consola para conocer la letra que es asignada segun el DNI.

Código (pascal) [Seleccionar] Expandir

PROGRAM dcalc;

USES
  crt;
VAR
  user_dni:INTEGER;
dni_operacion:INTEGER;
dni_valornumero:INTEGER;
dni_defval:INTEGER;
BEGIN
  clrscr;
write('Introduzca su DNI:');
read(user_dni);
dni_defval:=23;
dni_operacion:=user_dni mod dni_defval;
writeln('Su numero es:',dni_operacion);
readkey;
clrscr;
write('Introduzca el numero proporcionado,para conocer la letra de su DNI:');
readln(dni_valornumero);
clrscr;
case dni_valornumero of
0:writeln('Su DNI completo es:',user_dni,'T');
1:writeln('Su DNI completo es:',user_dni,'R');
2:writeln('Su DNI completo es:',user_dni,'W');
3:writeln('Su DNI completo es:',user_dni,'A');
4:writeln('Su DNI completo es:',user_dni,'G');
5:writeln('Su DNI completo es:',user_dni,'M');
6:writeln('Su DNI completo es:',user_dni,'Y');
7:writeln('Su DNI completo es:',user_dni,'F');
8:writeln('Su DNI completo es:',user_dni,'P');
9:writeln('Su DNI completo es:',user_dni,'D');
10:writeln('Su DNI completo es:',user_dni,'X');
11:writeln('Su DNI completo es:',user_dni,'B');
12:writeln('Su DNI completo es:',user_dni,'N');
13:writeln('Su DNI completo es:',user_dni,'J');
14:writeln('Su DNI completo es:',user_dni,'Z');
15:writeln('Su DNI completo es:',user_dni,'S');
16:writeln('Su DNI completo es:',user_dni,'Q');
17:writeln('Su DNI completo es:',user_dni,'V');
18:writeln('Su DNI completo es:',user_dni,'H');
19:writeln('Su DNI completo es:',user_dni,'L');
20:writeln('Su DNI completo es:',user_dni,'C');
21:writeln('Su DNI completo es:',user_dni,'K');
22:writeln('Su DNI completo es:',user_dni,'E');
else
writeln('Introduzca un numero valido');
end;
readkey;
END.   

Saludos