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

var
  f : integer; // объявляем переменную, для хранения количества дней
begin
 write(Введите количество дней: );  // выводим текстовую строку на экран
 readln(f); // считываем значение переменной, введенной с клавиатуры

// выводим строчку с ответом, для ответа берем итог целочисленного дробленья

// количества дней на 7
 writeln (Количество полных недель, проведенных на полуострове одинаково , f div 7);

end.