{* Площадь поверхности и объем шара *}

Unit VSHAR;
Interface
Implementation
Begin
 writeln(' Вычислить площадь поверхности и объем шара по вводимому радиусу.');
End.

Program pas76623;

Uses vshar.pas; {* Эту строку можно удалить *}
{Вычислить площадь поверхности и объем шара по вводимому  радиусу.}
Var {* Необходимые переменные *}
  r : real;
  s : real;
  v : real;
Begin
  writeln('Введите радиус шара');
  readln(r);
  s := 4 * PI * sqr(r);
  v := 4 / 3 * PI * sqr(r) * r;
  writeln('Площадь поверхности шара ', s : 2 : 2);
  writeln('Объем шара ', v : 2 : 2);
  readln
End.