var
  text : TextFile;
  s    : String; 
  x, m, k, n, i : Integer;
begin
  AssignFile(text, 'input.txt');
  Reset(text);   
    Readln(text, s);    
  CloseFile(text);
  
  val( Copy(s, 1, pos(' ', s) - 1), x, i);
  delete(s, 1, pos(' ', s));
  
  val( Copy(s, 1, pos(' ', s) - 1), m, i);
  delete(s, 1, pos(' ', s));
  
  val( Copy(s, 1, pos(' ', s) - 1), k, i);
  delete(s, 1, pos(' ', s));
  
  val( Copy(s, 1, length(s)), n, i);

  x := (x + k + n - m) mod 24;
  
  AssignFile(text, 'output.txt');
  ReWrite(text);
    Write(text, x);   
  CloseFile(text); 
end.