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

1 часть сахара, 1 часть персиков и 3 () части воды)
var a, P: real;
begin
     readln(P);
     a := P / 5;
     writeln(a, ' кг сахара');
     writeln(a, ' кг персиков');
     writeln(a * 3, ' литров воды');
end.

можешь помочь мне еще