Pascal ABC Составить программу перевода денежных единиц из рублей в доллары и евро, если известен курс этих валют.

Program _1;vardollar,euro,rub:real;beginwriteln('Введите сумму в рублях');readln(rub);dollar:=rub/57;euro:=rub/68;writeln('Курс рубля в долларах: ',dollar);writeln('Курс рубля в евро: ',euro);end.