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

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