Помогите,пожалуйста(программирование) Тело имеет массу М г и объем 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.