Program For1;
var
D,K,Otvet:integer;
begin
Write('Введите целое число K (1<=k<=365) =');
readln(K);
Write('Введите целое число D=');
readln(D);
Otvet:=((((K mod 7)+D-1)-1) mod 7)+1 ;
Writeln('Otvet=',Otvet);
end.