ОПЕРАТОРЫ DIV и NOD ПОМОГИТЕ, НЕ ПОЛУЧАЕТСЯ СОСТАВИТЬ ПРОГРАМКУ Опции

[Рустам]

мне надо составить программу на паскале,..... чтоб например я написал 22 дня, а мне в ответ 3 недели и 1 день... Или например: я пишу44, мне в ответ: 6недель и 2 дня............ короче переводить дни в недели... я остановился на этом:
PROGRAM NEDELYA;
VAR
x,y:integer;
begin
writeln('введите кол-во дней');
write('x=');
d:=xnod7;
END.

Но ничего не выходит........