program asd;

var
  a, b: real;

begin
  writeln('Введите объем');
  readln(a);
  writeln('Введите плотность');
  readln(b);
  a := a * b;
  writeln('Масса = ', a);
end.