begin
  var dollar := 76.71; // Текущий курс
  Println('*** Конвертер валют ***');
  
  while true do
  begin
    Println('Выбери действие (введи число)');
    Println('[1] RUB -> USD');
    Println('[2] USD -> RUB');
    Println('[0] Выход');
    var item := ReadInteger('>>>');
    
    case item of
      1:
        begin
          var moneyRus := ReadReal('Введи рубли для перевода их в доллары: ');
          Println('Получаем', moneyRus / dollar, '$');
        end;
      2:
        begin
          var moneyUsd := ReadReal('Введи доллары для перевода их в рубли: ');
          Println('Получаем', moneyUsd * dollar, '₽');
        end;
      0: break
    end;
    Println;
  end;
  Print('Выход.');
end.