Тело имеет массу M г и объём V см3. Будет ли оно плавать в жидкости, объём которой равен V1 см3, а масса M1 г? (Указание: найдите плотности тела и жидкости а потом сравните их). Си + + или С + + Shell

Var m1, V1: integer; # 1 оу

m2, V2: integer; # 2 ое

begin

Write ('1 ая в гр.') ; ReadLn (m1) ;

Write ('Обьем в куб. см') ; ReadLn (V2) ;

Write ("масса 1") ; ReadLn (m2) ;

Write ("масса 2") ; ReadLn (V2) ;

if (m1/V1) > (m2/V2) then WriteLn ("поплывет (легкое) ")

else WriteLn ("потонет") ;

ReadLn;

end.

Это паскаль, не подойдет? Я знаю путон и паскаль, с + + мало.