Tpw menghitung Momentum

uses wincrt;
var
m,v,Hsl:real;
Begin
write ('masukkan massa:');Readln(m);
write ('masukkan kecepatan:');Readln(v);
Hsl:=m*v;
writeln ('hasilnya adalah:',Hsl:2:2);
end.