{* Задача 549 *}

Unit ZADACH549;
Interface
Implementation
Begin
 writeln('Чтобы сварить 4 порции пшенной каши, нужно взять 220 г пшена, 1 л молока и 30 г сахара. Сколько потребуется этих продуктов, чтобы сварить N порций каши?');
End.

Program zadach549;

Uses zadach549.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Необходимые переменные *}
  p : real;
  m : real;
  s : real;
  n : integer;
Begin
  clrscr; {* Очищаем экран *}
  write('n=');
  read(n);
  p := 222 / 4*n;
  m := 1 / 4*n;
  s := 30 / 4*n;
  writeln('Для ', n, ' порций понадобится:');
  writeln('Пшена ', p : 2:3, ' гр.');
  writeln('Молока ', m : 2:3, ' л.');
  writeln('Сахара ', s : 2:3, ' гр.');
  readkey; {* Ждем нажатия любой клавиши *}
End.