{* Задача 551 *}

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

Program zadach551;

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