Робинзон крузо провёл на острове f дней. сколько полных недель он пробыл на острове? в pascal abc

Var f,n:integer;
begin
write('Сколько дней: ');
readln(f);
n:=f div 7;
writeln('Полных недель: ',n);
end.