Составить программу: 1. Вычисления объема конуса (V=1/3pi r^2 h)

program zz1;

var r, V, h:real; / / задаем переменные не целого типа

begin

write (' введите исходное значение радиуса окружности '); / / вводим с клавиатуры исходное значение r

read (r);

write (' введите исходное значение высоты '); / / вводим с клавиатуры исходное значение h

read (h);

V:=1/3 * pi * r * r * h; / / вычисляем объем конуса по заданной формуле

write (' полученное значение объема конуса = ', V:5:2); / / выводим ответ в формате пять знаков для всего числа и два знака после запятой

end.