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

var

f : integer; / / объявляем переменную, для хранения количества дней

begin

write ('Введите количество дней: '); / / выводим текстовую строку на экран

readln (f); / / считываем значение переменной, введенной с клавиатуры

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

/ / количества дней на 7

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

end.