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

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

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

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

end.