{* Задача 547 *}

Unit ZADACH547;
Interface
Implementation
Begin
 writeln('Чтобы заварить 1, 5 л чая, нужно 30 г сухого чая. Чайник вмещает В л. Сколько нужно сухого чая для заварки?');
End.

Program zadach547;

Uses zadach547.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Объявление переменных *}
  b : real;
  s : real;
Begin
  clrscr; {* Очищаем экран *}
  write('b=');
  read(b);
  s := 30 * b/1.5;
  write(s : 2:3, '  грамм');
  readkey; {* Ждем нажатия любой клавиши *}
End.