Робинзон Крузо провёл на острове f дней. Сколько полных недель и месяцев он пробыл на острове? Примечание: будем считать, что месяц содержит 30 дней?
На Pascal ABC

var

   f: integer;

begin

   write('Сколько дней: ');

   readln(f);

   writeln('Полных недель: ', f div 7);

   writeln('Полных месяцев (берем месяц 30 дней): ', f div 30);

end.