1 PROGRAM DATUM(INPUT,OUTPUT);
3 VAR JJ,MM,TT,WT: INTEGER;
11 READ(JJ, STRICH, MM, STRICH, TT)
29 WT := ( TRUNC(365.25*F) + TRUNC(30.6*G) + TT - 621049 ) MOD 7
38 PROCEDURE WRITEWOCHENTAG;
45 4: WRITE("DONNERSTAG");
49 END (* WRITEWOCHENTAG *);
62 9: WRITE("SEPTEMBER");
64 11: WRITE("NOVEMBER");
73 WRITE(", DER", TT:3, ". ");