P__6_E18

=__**Leer y mostra datos de una fecha**__= > > **Leer dia, mes y año de una fecha y mostrar la fecha.**

code format="pascal" PROGRAM Pagina_6_Ejercio_18 ; VAR iDia, iMes, iAnio: Integer ; BEGIN WriteLN ; WriteLN ('Introduce una fecha: ') ; Write   ('                Dia: ') ; ReadLn  (iDia) ; Write   ('                Mes: ') ; ReadLn  (iMes) ; Write   ('    (4 cifras) Anio: ') ; ReadLn  (iAnio) ;

iAnio := iAnio MOD 100 ; WriteLn ; Write  ('  la fecha leida es: ', iDia, '/', iMes, '/', iAnio ) ;

ReadLn ;

END. { Fin de Fechas_Uno_o_dos_Digitos.PAS } code