Program laba1_2;
const n=12;
Var
    step: byte;
    V,r: real;
Begin
    V:=0;
    r:=0.5;
    For step:=1 to n do
    begin
        V:=V + 4*Pi/3*sqr(r)*r;
        r:=r+0.05;
    end;
    Writeln('ׁףללאנםי מבת¸ל נאגום: ',V:4:3);
    readln(step);
end.