Написать программу, реализующую следующую задачу: дана сумма денег в некоторой…

Это просто, если знать курсDim R As Integer, D As Integer, E As Integer, X As StringConst Euro=45,38, Dollar=32,68 ' Здесь вводишь реальные курсыClsPrint «Введите сумму, в конце напишите код валюты — RUR, rur, USD, usd, EUR, eur"Input XIf Ucase (Right (X, 3)="RUR" Then R=Val (Trim (Left (X, Len (X) — 3) D=R / Dollar Print Str (D) & «долларов» E=R / Euro Print Str (E) & «евро"ElseIf Ucase (Right (X, 3)="USD" Then D=Val (Trim (Left (X, Len (X) — 3) R=D*Dollar Print Str (R) & «рублей» E=R / Euro Print Str (E) & «евро"ElseIf Ucase (Right (X, 3)="EUR" Then E=Val (Trim (Left (X, Len (X) — 3) R=E*Euro Print Str (R) & «рублей» D=R / Dollar Print Str (D) & «долларов"Else Print «Введите правильное название валюты в любом регистре! "End IfПрограмма сама проверяет, в какой валюте ты ввел число, и выдает результат в двух других валютах.