{* Задача 553 *}

Unit ZADACH553;
Interface
Implementation
Begin
 writeln('Для того, чтобы печенье было рассыпчатым, в него кладут пекарский порошок. В его состав входят пищевая сода – 25%, лимонная кислота – 15% и мука – 60%. Сколько соды, лимонной кислоты и муки надо взять, чтобы приготовить А г пекарского порошка?');
End.

Program zadach553;

Uses zadach553.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* В работе нам потребуются переменные: *}
  s  : real;
  lk : real;
  m  : real;
  a  : real;
Begin
  clrscr; {* Очистка экрана *}
  write('a=');
  read(a);
  s := a * 0.25;
  lk := a * 0.15;
  m := a * 0.60;
  writeln('Для приготовления ', a : 2:2, ' г. порошка нужно:');
  writeln('Соды ', s : 2:1, ' гр.');
  writeln('Лимонной кислоты ', lk : 2:1, ' г.');
  writeln('Молока ', m : 2:1, ' гр.');
  readkey; {* Ждем нажатия любой клавиши *}
End.