Дни недели пронумерованы следующим образом: 0-воскресенье, 1-понедельник, 2-вторик и т. д. Известно, что первое число месяца был понедельник. Определите какой день был в N дату (N<=31)

program zz1;

var k:integer; / / задаем переменную целого типа

begin

write (' введите день месяца ');

read (k); / / вводим с клавиатуры число

if k mod 7 = 1 then write (' понедельник '); / / проверяем введенное число и выводим ответ

if k mod 7 = 2 then write (' вторник ');

if k mod 7 = 3 then write (' среда ');

if k mod 7 = 4 then write (' четверг ');

if k mod 7 = 5 then write (' пятница ');

if k mod 7 = 6 then write (' суббота ');

if k mod 7 = 0 then write (' воскресенье ');

end.