Program poezdka;
var r,c,k,s:real;
begin
Writeln('Ввелите расстояние до дачи(в км)'); readln(r);
Writeln('Введите расход бензина(литров на 100 км) '); Readln(k);
Writeln('Введите цену литра бензина(руб)'); Readln(c);
s:=r/50*k*c;
Writeln('Поездка на дачу и обратно обойдется в ',s,' руб');
end.