begin
comment Procedures DateWrite and DateRead;
	record RDate (integer year, month, day);
	
	procedure DateWrite(reference(RDate) value dd);
	begin
		write("date(m,d,y)=", month(dd), day(dd), year(dd));
	end;
	
	procedure DateRead(reference(RDate) value result dd);
	begin
		writeon("date(m,d,y)=?"); read( month(dd), day(dd), year(dd));
	end;
	
	reference(RDate) pd;
	pd := RDate(-1,-1,-1);
	DateRead(pd);
	DateWrite(pd);
end.