Правильно ли она решена?

[WitaliG]

Здравствуйте! Самостоятельно изучаю Паскаль, посоветоваться не с кем, поэтому прошу посмотреть следующую задачу. Правильно ли она решена? С уважением Виталий.

Integer24°. Дни недели пронумерованы следующим образом: 0 — воскресенье, 1 — понедельник, 2 — вторник, ..., 6 — суббота. Дано целое число K, лежащее в диапазоне 1-365. Определить номер дня недели для K-го дня года, если известно, что в этом году 1 января было понедельником.

Program abc;
const d = 7;{7-количество дней недели}
var
n,k :integer;
begin
write('Введите номер дня:',k);
readln(k);
n :=k mod d;
write(n);
readln
end.

[Mad_Cat]

Правильно ли она решена?

А что мешает запустить и проверить?
P.S Правильно!

[WitaliG]

Спасибо. Я запускал, но все равно есть сомнение: "А вдруг мой ход мыслей неправильный".