(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.