A program for transferring money from one currency to another at the current exchange rate.

A program for transferring money from one currency to another at the current exchange rate. The program should make a request: translation option (for example: 1 – dollar to ruble, 2 – ruble to dollar); amount of money; current course.

Uses crt;
var item, rub, doll: real;
job: integer;
begin
writeln (‘Enter the ruble rate in relation to the dollar:’);
read (item);
writeln (‘Convert from (ruble to dollar (2)) or (dollar to ruble (1))?’);
read (job);
case job of
begin
writeln (‘Enter the amount of rubles:’);
read (rub);
rub: = rub / item;
writeln (‘doll =’, rub);
end;
begin
writeln (‘Enter the number of dollars:’);
read (doll);
doll: = doll * item;
writeln (‘rub =’, doll);
end;
end;
end.
Second option:
Var a, b: integer;
s1, s2: string;
begin;
writeln (‘Enter the starting currency’);
readln (s1);
writeln (‘Enter the final currency’);
readln (s2);
writeln (‘Enter the amount of money’);
readln (a);
writeln (‘Enter the current rate’, s1, ‘in relation to’, s2);
readln (b);
writeln (‘Get it’, a * b, ”, s2);
end.



One of the components of a person's success in our time is receiving modern high-quality education, mastering the knowledge, skills and abilities necessary for life in society. A person today needs to study almost all his life, mastering everything new and new, acquiring the necessary professional qualities.