Напишите программу нахождения дня недели по номеру дня в ноябре текущего года в паскаль (60 баллов)

var

 d:integer;

begin

//Ноябрь 2021г.

 write('Введите число(1..30): '); readln(d);

 case d mod 7 of  

   1: write('Пн');

   2: write('Вт');

   3: write('Ср');

   4: write('Чт');

   5: write('Пт');

   6: write('Сб');

   else write('Вс')

 end;

end.