{* Задача 557 *}

Unit ZADACH557;
Interface
Implementation
Begin
 writeln('Для приготовления компота из персиков берут сахар, персики и воду в пропорции 1:1:3. Сколько кг каждого продукта надо взять, чтобы сварить Р кг компота?');
End.

Program zadach557;

Uses zadach557.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* В работе нам потребуются переменные: *}
  s   : real;
  per : real;
  v   : real;
  p   : real;
Begin
  clrscr; {* Очищаем экран *}
  write('p=');
  read(p);
  s := 1 / 5*p;
  per := 1 / 5*p;
  v := 1 / 5*p * 3;
  writeln('Для приготовления ', p : 2:1, ' кг. кампота нужно:');
  writeln('Сахара ', s : 2:1, ' кг.');
  writeln('Персиков ', per : 2:1, ' кг.');
  writeln('Воды ', v : 2:1, ' кг.');
  readkey; {* Ждем нажатия пользователя *}
End.