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

СПАСИБО БОЛЬШОЕ,ТАК НАМНОГО ПОНЯТНЕЕ!!

uses  crt;var  item, rub, doll: real;   job: integer;begin    writeln('Введите курс ру по отношению к дол: ');  read(item);//Вводим курс рубль-доллар  writeln('Перевести из (рубля в доллар(2)) или (доллар в рубль(1))?');  read(job);//Вводим режим  case job of  2:      begin        writeln('Введите кол-во рублей: ');        read(rub);//Вводим рубль        rub := rub / item;        writeln('doll = ',rub); end;1:      begin        writeln('Введите кол- во долларов: ');        read(doll);//Вводим доллар        doll := doll * item;        writeln('rub = ',doll); end; end;     end.