Записать программу на языке паскаль: составить программу вычисления объема треугольной

Var V,h,S:real; begin  write('введите площадь основания пирамиды ');  read(S);  writeln('введите высоту пирамиды ');  read(h);  V:=(1/3)*S*h;  write('объем пирамиды равен ',V); end.