визначити площу трапеції висотою h, з основами a і b

function TrapS(a, b, h: real) := (a + b) * h / 2;begin    var (a, b, h) := ReadlnReal3();    var TrapeziumSquare := TrapS(a, b, h);    Print('Trapezium Square is ', TrapeziumSquare);end.