Напишите программу для решения в pascal
для приготовления молочного коктейля взяли: 1 л молока, 200 г мороженого, 40 г
мёда, 100 г крепкого кофе. 1 порция коктейля х г. сколько порций получится из
исходных продуктов?

===== PascalABC.NET =====

begin

 var молоко := 1030;

 var мороженое := 200;

 var мед := 40;

 var кофе := 100;

 var ОбщийВес := молоко + мороженое + мед + кофе;

 var ВесПорции := ReadInteger('Вес порции:');

 Println('Получится порций:', Trunc(ОбщийВес / ВесПорции))

end.