[Row]

я решил ее вот так:

Код:

var m,n,i,z:integer;

begin
    writeln('vvedite nyjniy den v godu');
    readln(m);
    if (m>1) and (m<365) then
          begin
          writeln('vvedite den nedeli 1 yanvarya');
          readln(i);
          z:=i-1;
          n:=(m+z) mod 7;
          if (n=0) then n:=7;
          writeln(n);
          end
    else writeln('ne ydovletv');
    readln;
end.

это есть правильно?