два сосуда 1 из которых имеет форму шара радиусом r, другой

Объем шара , объем куба . Нужно сопоставить объёмы двух сосудов.

Код (PascalABC.NET 3.2):
begin
  var A := ReadReal('Введите сторону куба:');
  var r := ReadReal('Введите радиус шара:');
  A := A * A * A;
  r := 4 * pi / 3 * r * r * r;
  if A gt; r then print('В шарообразном сосуде на', A - r, 'воды больше')
  else if r gt; A then print('В прямоугольном сосуде на', r  - A, 'воды больше')
  else print('В сосудах однообразное количество воды');
end.