Пожалуйста !!!!!!!!!! Срочно !!!!!!!!!!!!!!!
1)
До начала каникул остается D дней. Определите сколько полных недель и сколько дней до начала каникул.Выделите операторы программы, необходимые для решения этой задачи.

Program holiday;

Var D : integer; // Дано

week, day: integer; // Найти

Begin

[ Readln / Writeln / Integer] (D);

week := [ D div 7 / D mod 7 / D ⁄ 7 ];

day := [ D mod 7 / D div 7 / M mod 7 / M div D];

[ writeln / readln] (‘Всего ’ [ week / D / day / 7] ,’недель и ’ , [ day / D / 7], ‘ дней’ )

End.

(мне нужен правильный ответ )