Ответ:
pascal
Объяснение:
var
k, v, r, L : real;
begin
Write('Введите расстояние до дачи k: ');
ReadLn(k);
Write('Расход в литрах v: ');
ReadLn(v);
Write('Введите стоимость бензина за литр r: ');
ReadLn(r);
WriteLn('*** Расход равен ', v/(2*k):2, ' л/км ***');
Write('Введите расстояние до города L: ');
ReadLn(L);
WriteLn('Для поездки в город потребуется заправить ', (v*L)/k:2, ' литров бензина стоимостью ', (v*L)/k*r:2, ' руб.');
end.