{ programm zur Anzeige Datum / Uhrzeit bei Autoexec } program uhrzeig; uses dos; const WochenTag : array[0..6] of string[10] = ('Sonntag','Montag','Dienstag','Mittwoch', 'Donnerstag','Freitag','Sonnabend'); var a,b,c,d : word; begin GetDate(a,b,c,d); Writeln('Heute ist ',WochenTag[d],', der ',c,'. ',b,'. ',a); writeln; GetTime(a,b,c,d); Writeln('Die aktuelle Zeit ist genau ',a:2,' Uhr ',b:2,' , ',c:2,' Sekunden.'); end.