Написать программу вычислений конуса по формуле V = ⅓πR²H

Program ;Var h, r, V:real;begin WriteLn ('Введите высоту конуса: '); Readln (h); WriteLn ('Введите радиус конуса: '); Readln (r); V:= 1/3*pi*(r*r)*h; WriteLn ('Обьём конуса равен: ',V:5:1);end.