vlakar Const
K=65,8;

var
r,d:integer;

begin

writeln('Введите рубли') ;
readln(r);
d:=r/K;
writeln('Доллары:'d);

end.



---------------

Ввод рублей

\/

Перевод рублей в доллары

\/

Вывод полученных долларов