Código
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