{* Задача 556 *}

Unit ZADACH556;
Interface
Implementation
Begin
 writeln('Для приготовления квашеной капусты на 10 кг капусты берут 225 г соли , 350 г моркови, 200 г клюквы, 4 г лаврового листа. Сколько соли, моркови, клюквы и лаврового листа надо взять, если закуплено М кг капусты?');
End.

Program zadach556;

Uses zadach556.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Необходимые переменные *}
  kap   : real;
  kl    : real;
  mor   : real;
  llist : real;
  m     : real;
Begin
  clrscr; {* Очищаем экран *}
  write('m=');
  read(m);
  kap := 22.5 * m;
  kl := 20 * m;
  mor := 33 * m;
  llist := 0.4 * m;
  writeln('Для приготовления ', m : 2:1, ' кг. квашенной капусты нужно:');
  writeln('Капусты ', kap : 2:1, ' г.');
  writeln('Клюквы ', kl : 2:1, ' г.');
  writeln('Моркови ', mor : 2:1, ' г.');
  writeln('Лаврового листа ', llist : 2:1, ' г.');
  readkey; {* Ждем нажатия любой клавиши *}
End.