запросите у пользователя курсы доллара и евро ** сегодняшний день и имеющиеся у него...

Question

запросите у пользователя курсы доллара и евро на сегодняшний день и имеющиеся у него рублёвую сумму , рассчетайте сколько долларов и евро он сможет купить.
Написать алгоритм.
Помогите,пожалуйста

Answer 1

Var
a,b,c,d:longint;
begin
readln(a); {euro}
readln(b); {usd}
readln(c); {rur}
writeln('USD', c div b);
writeln('EUR ',c div a);
end.