(Pascal)Программа перевода денег из одной валюты в другую по текущему курсу. В программе...

Question

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

Answer 1

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.