{$codepage UTF8} USES Sysutils; VAR Fecha,Hora:extended; BEGIN Fecha:=Date; Writeln(FormatDateTime('ddddd',Fecha)); Hora:=Time; Writeln(FormatDateTime('tt:z',Hora)); END.