программа

[oksi-xd]

Помогите пожалуйста

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

* вариант перевода (например: 1 - доллар в рубль, 2 - рубль в доллар);

* сумма денег;

* текущий курс.

[ZX Spectrum-128]

Readln(tk); //текущий курс
Readln(sum); // сколько денежек
Readln(vp); // вариант перевод
If vp=1 then // $ ---> р
  Writeln(sum*tk)
Else
  Writeln(sum/tk);