var
  i: integer;
  a: array of byte := (5, 6, 5, 6, 5, 4, 0);
begin
  readln(i);
  writeln((i > 0) and (i < 8) ? a[i - 1].ToString() : 'Нет дня недели');
end.