Directory of image this file is from
This file as a plain text file

'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'