{* Задача 546 *}

Unit ZADACH546;
Interface
Implementation
Begin
 writeln('Из 18 т железной руды выплавляют 10 т железа. Сколько железа выплавят из А т руды?');
End.

Program zadach546;

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