{ 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.