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

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

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

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

end.