Определить площадь трапеции с основаниями а, b, высотой h и объем усеченного конуса, если...

Question

Определить площадь трапеции с основаниями а, b, высотой h и объем усеченного конуса, если считать а, b - площадями оснований. В паскале!!!!

Answer 1

Var
    a, b, h: real;

begin
    read(a, b, h);
    writeln('P трапеции = ', (a + b) / 2 * h);
    writeln('V конуса = ', PI * sqr((a + b) / 4) * h );
end.