{* Задача 434 *}

Unit ZADACH434;
Interface
Implementation
Begin
 writeln('Сосуд имеет форму полушара радиуса R, дополненного цилиндром. Какой высоты должна быть цилиндрическая часть, чтобы сосуд имел объём V. (Контр.прим.: R=3, V=81,Pi=3.14, h≈0.87).');
End.

Program zadach434;

Uses zadach434.pas; {* Эту строку можно удалить *}
Const {* Константы *}
  Pi = 3.14;
Var {* В работе нам потребуются переменные: *}
  H : real;
  V : integer;
  R : integer;
Begin
  writeln ('vvedi obem V ');
  Readln(V);
  writeln ('vvedi radios R ');
  Readln(R);
  H := - ((4 / 3*Pi * R*R * R) / 2-V) / (Pi * Sqr(R));
  Writeln ('H= ', H);
  Readln; {* Ждем нажатия Enter *}
End.