Известны объём тела v и масса тела m. определите плотность материала p

Program plotnost;
var V, m, p :real;
begin
write('обьем тела = ');
read(V);
write('масса тела = ');
read(m);
p:=m/V;
writeln('Плотность тела = ',p);
end.
write