ПРОГРАММИРОВАНИЕ ПАСКАЛЬ ABC ПОМОГИТЕ СРОЧНО!
С дерева собрали некоторое количество яблок. Их разделили поровну между детьми, гулявшими во дворе (яблоки не резали), а оставшиеся отдали, чтобы сварить компот. Сколько яблок досталось каждому ребенку? Сколько пошло на компот?

Условие неполное, так что решением также будет раздать по 1 яблоку, по 2, по 3 и по 4.

// PascalABC.NET 3.1, сборка 1201 от 18.03.2016begin  var a:=ReadInteger('Яблок было');  var d:=ReadInteger('Детей гуляло');  Writeln('Каждый получил яблок: ',a div d);  Writeln('На компот пошло яблок: ',a mod d)end.Тестовое решение:Яблок было 37Детей гуляло 7Каждый получил яблок: 5На компот пошло яблок: 2