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

var

   f: integer;

begin

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

   readln(f);

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

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

end.