Перевести сумму к рублей в доллары сша по курсу ммвб на день решения .

Const a = 67.45;var  k,d,b : real;begin  writeln('Введите сумму в рублях: ');  read(k);  b := k/a;  writeln('Ваша сумма в $: ', b:3:2);end.