Визначити площу трапеції висотою 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.