{* Объем шара из радиуса *}

Unit BEGIN_18;
Interface
Implementation
Begin
 writeln('Дан радиус шара. Найти его объем');
End.

Program begin_18;

Uses begin_18.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* В работе нам потребуются переменные: *}
  r : real;
  V : real;
Begin
  ClrScr; {* Очищаем экран *}
  Writeln('введите радиус r');
  readln(r);
  V := 4 / 3 * PI * sqr(r) * r;
  writeln('объем шара=', v : real);
  Readln; {* Ждем нажатия Enter *}
End.