Ответ:

var

d,n,i,j:integer;

v:real;

begin

write('Кол-во нефтехранилищь = '); readln(n);

write('Введите диаметр = '); readln(d);

for i:=0 to n-1 do begin

  v:=Pi*sqr(d/2)*d;

  write('Объём нефтехранилища №',i+1,' = ',v:0:3,' ед.^3'); writeln('  (Где диаметр = ',d,')');

  d:=d+1;

end;

end.