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

//PascalABC.NET 3.2 сборка 1318

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

Пример ввода:
67
8.5
20.5
Пример вывода:
233.495

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.