{* Задача 16 *}

Unit SHARY16;
Interface
Implementation
Begin
 writeln('Определить суммарный объём в литрах 12 вложенных друг в друга шаров со стенками толщиной 5 мм. Внутренний диаметр внутреннеого шара равен 10см. Принять что шары вкладываются друг в друга без зазоров. ');
End.

Program shary;

Uses shary16.pas; {* Эту строку можно удалить *}
Var {* Объявление переменных *}
  d  : real;
  r  : real;
  v  : real;
  vm : real;
  i  : integer;
Begin
  r := 0.055;
  v := 0;
  For i := 1 To 12 Do {* Цикл для i => [1 .. 12] *}
  Begin
    v := ((4 / 3) * 3.14 * r * r * r) + v;
    r := r - 0.005;
  End;
  vm := v / 1000;
  writeln(vm : 8 : 8, ' litrov');
  readln; {* Ждем подтверждения пользователя *}
End.