В месяце апреле 30 дней. 1 апреля - понедельник, 2 апреля - вторник, ... Написать программу, в которой по введеному с клавиатуры дню месяца (например, 15 или 18) вы должны определить какой это день недели. Решить в паскале.

program zz1;

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

begin

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

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

k:=n mod 7; / / получаем остаток от деления на 7

if k = 1 then writeln (' Понедельник '); / / проверяем условие и выводим ответы

if k = 2 then writeln (' Вторник ');

if k = 3 then writeln (' Среда ');

if k = 4 then writeln (' Четверг ');

if k = 5 then writeln (' Пятница ');

if k = 6 then writeln (' Суббота ');

if k = 0 then writeln (' Воскресенье ');

end.