// PascalABC.NET 3.3, сборка 1600 от 23.12.2017
// Внимание! Если программа не работает, обновите версию!
begin
var d:=ReadReal('Введите плотность бензина (г/см3):');
var v:=25.0; // объем
Writeln(v,' л бензина весят ',v*d:0:3,' кг.')
end.
Пример
Введите плотность бензина (г/см3): 0.71
25 л бензина весят 17.750 кг.