Программа хранит в переменных курс доллара и евро. Пользователь вводит сумму в рублях и получает информацию о том, сколько эта сумма составляет в долларах и евро.

Const
  USD=64.05; // Официальный курс доллара США к рублю на 08.07.2016
  EUR=70.95; // Официальный курс евро к рублю на 08.07.2016
var
  RUR:real; // сумма в российских рублях
begin
  Writeln(Введите сумму в российских рублях: );
  Read(RUR);
  Writeln(В долларах США: ,RUR/USD:0:2);
  Writeln(В евро: ,RUR/EUR:0:2);
end.

Тестовое решение:
Введите сумму в российских рублях:
15200.76
В долларах США: 237.33
В евро: 214.25