var
  a : array [1..100] of longint;
  i,n,k,sum,min,nom,max : longint;
begin
  for i:=1 to 7 do
    readln(a[i]);
  max:=a[1];
  for i:=2 to 7 do
    if a[i]>max then
      max:=a[i];
  writeln(max);
    for i:=2 to 7 do
    if a[i]>max then
      max:=a[i];
  if a[1]=a[i] then
    writeln('Monday')
  else if a[2]=a[i] then
    writeln('Tuesday')
  else if a[3]=a[i] then
    writeln('Wednesday')
  else if a[4]=a[i] then
    writeln('Thursday')
  else if a[5]=a[i] then
    writeln('Friday')
  else if a[6]=a[i] then
    writeln('Saturday')
  else if a[7]=a[i] then
    writeln('Sunday');
end.