Дано целое число k. Определите, каким будет k-й день года: выходным (суббота и воскресенье) или будним (понедельник, вторник, среда, четверг, пятница), если 1 января - понедельник (На паскале)

program zz1;

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

begin

write (' введите заданное число ');

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

if (k mod 6 = 0) or (k mod 7 = 0) / / проверяем, если число кратное 6 или 7, то

then writeln (k, '-ый день года будет выходным ') / / выводим один ответ

else writeln (k, '-ый день года будет будним'); / / иначе, выводим другой ответ

end.