(Pascal)Программа перевода денег из одной валюты в другую по текущему курсу.
В программе должен осуществляться запрос: вариант перевода (например:
1 - доллар в рубль, 2 - рубль в доллар); сумма денег; текущий курс.

var a,b:integer;s1,s2:string;begin;writeln('Введите начальную валюту');readln(s1);writeln('Введите конечную валюту');readln(s2);writeln('Введите сумму денег');readln(a);writeln('Введите текущий курс ',s1,' по отношению к ',s2);readln(b);writeln('Вы получите ', a*b,' ', s2);end.