{$codepage UTF8} USES Sysutils; VAR Fecha:extended; anio,n:integer; BEGIN Fecha:=Date; Writeln('Hoy : ',FormatDateTime('ddddd',Fecha)); Writeln('6 meses antes : ',FormatDateTime('ddddd',IncMonth(Fecha,-6))); Writeln('6 meses despues : ',FormatDateTime('ddddd',IncMonth(Fecha,6))); n:=DayOfWeek(Fecha); Case n of 1 : Writeln('Hoy es Domingo '); 2 : Writeln('Hoy es Lunes '); 3 : Writeln('Hoy es Martes '); 4 : Writeln('Hoy es Miercoles '); 5 : Writeln('Hoy es Jueves '); 6 : Writeln('Hoy es Viernes '); 7 : Writeln('Hoy es Sabado ') End; anio:=StrToInt(FormatDateTime('yyyy',Fecha)); if IsLeapYear(anio) then Writeln('El a',#164,'o es Bisiesto') else Writeln('El a',#164,'o no es Bisiesto'); END.