Program EjemploCalendario;
Uses crt,sysutils,Calendario;
{cuerpo del programa}
var
Tecla:char;
Fecha:String[10];
Begin
textattr:=14+1*16;
clrscr;
Fecha:=FormatDateTime('DD/MM/YYYY',Date);
Tecla:= FechaAlmanaque(Fecha,10,12,14,4);
write ('La Fecha es :',fecha);
readkey;
End.