readln( todays_date.day, todays_date.month, todays_date.year );


	Self Test ..
	The program statement reads three values from the keyboard, 
	into each of the individual fields of the record todays_date.