P_12_E_1

=__**Leer día, mes y año y mostrar fecha con dos dígitos**__=

> Leer desde el teclado tres números que correspondan a un día, mes y año (con cuatro cifras) y presentar en la pantalla la fecha que representan, con el siguiente formato: > Fecha: dd/mm/aa

> Nota: dd, mm y aa representan dos cifras. (siempre 2 cifras)

code format="pascal" PROGRAM EscribirFecha_dosDigitos ; VAR iDia, iMes, iAnio: Integer ; BEGIN WriteLN ; WriteLN ('Introduce una fecha: ') ; Write   ('                Día: ') ; ReadLn  (iDia) ; Write   ('                Mes: ') ; ReadLn  (iMes) ; Write   ('     (4 cifras) Año: ') ; ReadLn  (iAnio) ;

iAnio := iAnio MOD 100 ;

WriteLn ; Write  ('  la fecha leída es: ' ) ;

IF iDia < 10 THEN Write ('0') ; Write (iDia, '/') ;

IF iMes < 10 THEN Write ('0') ; Write (iMes, '/') ;

IF iAnio < 10 THEN Write ('0') ; WriteLn (iAnio) ;

Readln ; END. code