Ответ:

Объяснение:

program vshara;

var i, d, r, v: real;

begin

 Write('Вычисление объёма шара через радиус (1) или диаметр (2)(число пи = 3,14) (введите требуемую цифру): ');

 Read(i);

 if i=1 then

   begin

     Write ('Введите радиус: ');

     Read(r);

     v:=4*3.14*r*r*r/3;

     Write ('Объём шара равен ', v);

     Readln;

   end;

 if i=2 then

   begin

     Write ('Введите диаметр: ');

     Read(d);

     v:=3.14*d*d*d/6;

     Write ('Объём шара равен ', v);

     Readln;

   end;

 Readln;

End.

Это если нужно более элегантное решение:

begin

 var radius := ReadReal('Введите радиус шара:');

 var volume := 4/3 * Pi * radius**3;

 Print('Объем шара:', volume);

end.