На воду опущен шар радиуса r, изготовленный из вещества плотности r

[Verushka]

На воду опущен шар радиуса r, изготовленный из вещества плотности r (r<1). Найти расстояние от центра шара до поверхности воды. Указание. При составлении программы воспользоваться формулой объема шарового сегмента высоты h: V = ph2 (3r - h)/3, где r - радиус шара, h - высота шарового сегмента.

[Rin]

В чём именно проблема? Я б помог, но вот не знаю по каким формулам это считать.
Так же не понятно на каком языке программирования это писать? И хочу уточнить, плотность шара равна его радиусу? Кстати, есть такая штука, как этикет в веб-сети.Прошу, почитайте, надеюсь, понравится.

[BDA]

uses
  crt;

const
  e = 0.00001;

var
  R, p, h, d, c: real;

begin
  writeln('Input R and p:');
  readln(R, p);
  h := 0;
  d := 4 * r;
  c := 4 * p * r * r * r;
  while abs(h * h * (3 * r - h) - c) > e do
  begin
    if d * (h * h * (3 * r - h) - c) < 0 then
      d := d / 2
    else
      d := -d / 2;
    h := h + d;
  end;
  writeln('Heigth above the water: ', (r - h):0:3);
  readln;
end.

В решении не уверен