{$R+}
type TWeekDays = (Monday, Tuesday, Wednesday, Thursday, Friday, Saturday, Sunday);

var x: TWeekDays;
begin
	x:=Saturday;
	writeln(x);
	x:=succ(x);
	writeln(x);
	x:=succ(x);	
	writeln(x);
end.