Полная стоимость путёвки будет равна 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.