begin
var s:=ReadReal('Укажите общее количество крупы, кг:');
Writeln('В одном пакете ',s/7,' кг крупы')
end.
Пример
Укажите общее количество крупы, кг: 6.65
В одном пакете 0.95 кг крупы
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.