Заданные объемы и массы двух тел из разных материалов.Определить, материал которого из тел имеет большую плотность — Pascal(Паскаль)

 var
  m1, v1, m2, v2: real;

begin
  writeln('Введите массу первого тела');
  readln(m1);
  writeln('Введите объем первого тела');
  readln(v1);
  writeln('Введите массу второго тела');
  readln(m2);
  writeln('Введите объем второго тела');
  readln(v2);

  if m1 / v1 > m2 / v2 then
    write('плотность первого выше')
  else
    write('плотность второго выше')

end.