Объяснение:
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.
