Составьте программу вычисления площади трапеции по сумме оснований и высоте паскаль

Var ab,h,s:real;
begin
write('a+b = '); readln(ab);
write('h = '); readln(h);
s:=ab/2*h;
writeln('S = ',s);
end.

Пример:
a+b = 10
h = 6
S = 30