Написать программу вычисления объёма шара, при помощи процедуры и функции V=4*pi*(r*r*r)/3

Question

Написать программу вычисления объёма шара, при помощи процедуры и функции V=4*pi*(r*r*r)/3

Answer 1

Program ob;
procedure GetVolume();
var
r: real;
begin
write('r = ');
readln(r);
writeln('Объём: ', V(r));
end;
function V(r: real): real;
begin
V := 4 * 3.14 * (r * r * r) / 3;
end;
begin
GetVolume();
end.

Comments

неизвестное имя V

---

Поменяйте местами процедуру и функцию, пожалуйста.

---

спасибо

---

получилось