Question

6. Составьте программу вычисления площади конуса. S=1/3π r2h

Answer 1

var r,h:real;

Begin

  read(r,h);

  writeln('S=',pi*r*2*h/3);

End.