Var
s, rh, cost: double;
begin
writeln ('Вычисление стоимости поездки на дачу.');
write ('Расстояние до дачи(км): ');
readln (s);
write ('Расход бензина (литров на 100 км): ');
readln (rh);
write ('Цена литра бензина (руб.): ');
readln (cost);
writeln ();
write ('Поездка на дачу и обратно обойдется в ', cost*2*(rh*s/100), ' руб');
end.