Перевести сумму К рублей в доллары США по курсу ММВБ на день решения задачи.Помогите срочно надо)))

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