Вычислить объём конуса - Turbo Pascal

Напишите программу Pascal Вычислить объём конуса:

Листинг программы

VAR
R,H,V:real;
begin
R := 10.88 / 1000;
H := 5.8 / 1000;
V := 1/3*pi*R*R*H;
writeln('V=',v:8:10);
readln;
end.

Объяснение кода листинга программы

В данном коде объявлены три переменные: R, H и V, которые имеют тип real.

Строка R := 10.88 / 1000; присваивает переменной R значение 10.88 / 1000, что является конвертацией из десятичной системы в тысячные.
Строка H := 5.8 / 1000; присваивает переменной H значение 5.8 / 1000, что также является конвертацией из десятичной системы в тысячные.
Строка V := 1/3*pi*R*R*H; вычисляет значение переменной V. Здесь используется формула для вычисления объема конуса: V = (1/3) pi R^2 * H, где R и H - радиус и высота основания конуса соответственно.
Строка writeln('V=',v:8:10); выводит значение переменной V на экран с помощью функции writeln. Здесь используется форматная строка, чтобы вывести значение переменной V с префиксом V=.
Строка readln; читает ввод пользователя с помощью функции readln и завершает выполнение программы.