Написать программу площадь равнобедренной трапеции на паскале

Var 
a,b,h,s:real;
begin
readln(a,b); // нижнее, верхнее основание
readln(h); // высота 
s:=((a+b)/2)*h;
writeln(s);
end.