из 18 т железной руды выплавляют 10 т железа. сколько железа выплавят из A т руды
Помогите пожалуйста 17 баллов программу надо составить!!!

uses crt;var a,b:real;beginwriteln('Введите сколько тон вы хотите переплавить');readln(a);b:=(10/18)*a;writeln(b,'Тон получится ');end.

36

uses crt;var a,b:real;beginwriteln('Введите сколько тон вы хотите переплавить');readln(a);b:=(10/18)*a;writeln(b,'Тон получится ');end.