'BEGIN' 'COMMENT' WOCHENTAGSBESTIMMUNG; 'INTEGER' T,M,J,F,G,R; T:=READ(1); M:=READ(1); J:=READ(1); 'IF'(1901<=J 'AND' J<=1999)'AND'(1<=M 'AND' M<=12)'AND' ('NOT'(M=1 'OR' M=3 'OR' M=5 'OR' M=7 'OR' M=8 'OR' M=10 'OR' M=12) 'OR' T<=31) 'AND' ('NOT'(M=4 'OR' M=6 'OR' M=9 'OR' M=11) 'OR' T<=30) 'AND' ('NOT'(M=2 'AND' (J%4)*4=J) 'OR' T<=29) 'AND' ('NOT'( M=2 'AND' (J%4)*4#J) 'OR' T<=28) 'THEN' 'BEGIN' OUTINTEGER(1,T);TEXT(1,'.'); OUTINTEGER(1,M);TEXT(1,'.'); OUTINTEGER(1,J); F:=365*(J-1901)+31*(M-1)+T+ENTIER((J-1901)/4); G:=365*(J-1901)+31*(M-1)+T+ENTIER((J-1900)/4) -ENTIER(0.4*M+2.3); 'IF' M<=2 'THEN' R:=F -(F%7)*7 'ELSE' 'BEGIN' R:=G -(G%7)*7 'END'; 'IF' R=0 'THEN' TEXT(1,'MONTAG') 'ELSE' 'IF' R=1 'THEN' TEXT(1,'DIENSTAG') 'ELSE' 'IF' R=2 'THEN' TEXT(1,'MITTWOCH') 'ELSE' 'IF' R=3 'THEN' TEXT(1,'DONNERSTAG') 'ELSE' 'IF' R=4 'THEN' TEXT(1,'FREITAG') 'ELSE' 'IF' R=5 'THEN' TEXT(1,'SAMSTAG') 'ELSE' 'IF' R=6 'THEN' TEXT(1,'SONNTAG') 'END' 'END' 'ELSE' TEXT(1,'UNGUELTIG') 'END'