Program Delphi;
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.