{* Расчет цены поездки *}

Unit LIN_6;
Interface
Implementation
Begin
 writeln('Расчет цены поездки');
End.

Program lin_6;

Uses lin_6.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Необходимые переменные *}
  x : real;
  y : real;
  z : real;
  n : real;
Begin
  writeln('Vvedite rasstoianie Do
  dachi');
  readln(x);
  writeln('Vvedite kol - vo benzina');
  readln(y);
  writeln('Vvedite cenu benzina');
  readln(z);
  n := x * y / 100 * z * 2;
  writeln('Poezdka oboschlas v ', n : 5 : 2, ' tenge');
  readkey; {* Нажмите любую клавишу *}
End.