Для приготовления компота из персиков берут сахар , персики и воду в пропорции 1:1:3.Сколько кг каждого продукта надо взять ,чтобы сварить Р кг компота? Решить с помощью паскаль, расписать все

var p: Integer;Beginreadln(p);writeln('Сахар ',p / 5);writeln('Персики ',p / 5);writeln('Вода ',p / 5 * 3);End.