{* Задача 65 *}

Unit ZADACH65;
Interface
Implementation
Begin
 writeln('Вычисление стоимости одной поездки на автомобиле на дачу (туда и обратно). Исходными данными являются: расстояние до дачи (в километрах); количество бензина, которое потребляет автомобиль на 100 км. пробега; цена одного литра бензина (руб.). Ниже представлен рекомендуемый вид экрана во время работы программы (данные, введённые пользователем, выделены полужирным шрифтом). Вычисление стоимости поездки на дачу и обратно. Расстояние до дачи (км.) —> 67 Расход бензина на 100 км. пробега —> 8.5 Цена литра бензина (руб.) —> 6.5 Поездка на дачу и обратно обойдётся в 74.04 руб. ');
End.

Program zadach65;

Uses zadach65.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
  vilagedist   : real;
  per100km     : real;
  onelitrecost : real;
  totalcost    : real;
Begin
  writeln('Вычисление стоимости поездки на дачу и обратно.');
  write('Расстояние до дачи (км.)          -> ');
  readln(vilagedist);
  write('Расход бензина на 100 км. пробега -> ');
  readln(per100km);
  write('Цена литра бензина (руб.)         -> ');
  readln(onelitrecost);
  totalcost := 2.0 * vilagedist / 100.0 * per100km * onelitrecost;
  writeln('------------------------');
  writeln('Поездка на дачу и обратно обойдётся вам в ', totalcost : 6 : 2, ' руб.');
End.