Помогите пожалуйста, нужно сделать блок-схему!Определить суммарный объем в литрах 12 вложенных друг в друга шаров со стенками 5 мм. Внутренний диаметр внутреннего шара равен 10 см. Считать, что шары вкладываются друг в друга без зазоров.

Program lab3;
var  r, v: real; 
i: integer;
begin  v := 0; 
r := 0.5; 
for i := 1 to 12 do 
begin    v := v + 4 * Pi / 3 * sqr(r) * r;
r := r + 0.05  end; 
Writeln('Суммарный объем равен ', v:0:3, ' л.')
end.