В паскаль авс: найти плотность тела, если известны масса и объём

var

V, m, r: real;

begin

/ / реализовываем ввод

write ('Введите массу тела m: ');

readln (m);

write ('Введите объем тела V: ');

readln (V);

/ / плотность r находим разделив массу на объем

r : = m/V;

/ / вывод результата

writeln ('Плотность тела с массой ', m,' и объемом ', V,' равна ', r)

end.