Question

100 балов даю , срочно надо

Answer 1

program Week;

var d, n: integer;

begin

 readln(d);

 readln(n);

 

 writeln((d - 1 + n) mod 7 + 1);

end.