Question

Помогите по информатике.Нужно написать программу на языке pascal.
Условие - Перевести доллары от 1 до 10 в рубли

Answer 1

const

   rubles = 66.85;

var dollars:integer;

begin

   writeln('Введите доллары: ');

   readln(dollars);

   writeln(dollars, ' в рублях = ', (dollars * rubles):2:2);

end.