Вычислить полную стоимость путевки на лыжный курорт, если путевка стоит 300$…

Полная стоимость путевки будет равна 390$ (20% от 300+10% от 300) С клавиатуры вводится стоимость одного доллара. program test; var voucher, rate: real; begin write ('Enter the exchange rate of the dollar: '); readln (rate); voucher: =300; voucher: =voucher+voucher/100*20+voucher/100*10; writeln (voucher*rate, ' rub'); readln; end.