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

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.