напишите программу
я немного запуталась

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