Определить день недели, на который приходится день с датой “d”, “m”.

uses crt;
const dm:array[1..12]of integer=(31,28,31,30,31,30,31,31,30,31,30,31);
      dn:array[1..7]of string=('понедельник','вторник','среда','четверг','пятница',
                               'суббота','воскресенье');
var wd1,wdk:string;
    n,m,d,k,i:integer;
begin
repeat
write('Введите номер дня недели 1 января wd1=');
read(n);
until n in [1..7];
wd1:=dn[n];
writeln('1 января ',wd1);
writeln('Введите дату в году');
repeat
write('Месяц 1-12 m=');
read(m);
until m in [1..12];
repeat
write('День в зависимости от иесяца d=');
read(d);
until(d>0)
and((m in [1,3,5,7,8,10,12])and(d<32))
or((m in [4,6,9,11])and(d<31))
or((m=2)and(d<29));
k:=d-1;//минус 1 день, если ввели 1.01, то прошло 0 дней
for i:=1 to m-1 do//считаем сколько прошло дней
k:=k+dm[i];
k:=k mod 7; //берем остаток от 7
//к номеру дня 1.01 прибавляем остаток от k и берем остаток от суммы
write('Этот день недели приходится на ',dn[(n+k)mod 7]);
end.