Помогите,пожалуйста(программирование) Тело имеет массу М г и объем V см3. Будет ли оно плавать в жидкости, объем которой равен V1 см3, а масса М1 г? (Указание: найдите плотности тема и жидкости, а затем сравните их).

Var m1, V1: integer;  {первое тело}
     m2, V2: integer;  {второе тело}

begin
  Write(Введите массу первого тела в граммах); ReadLn(m1);
  Write(Введите объем  первого тела в кубических сантиметрах); ReadLn(V2);
 Write(Введите массу второго тела в граммах); ReadLn(m2);
  Write(Введите объем  второго тела в кубических сантиметрах); ReadLn(V2);
if (m1/V1)>(m2/V2) then WriteLn (ПЛАВАЕТ)
                             else WriteLn(ТОНЕТ);
ReadLn;
end.