Составить программу вычисления площади трапеции по введенным в диалоге двум сторонам — Pascal(Паскаль)

Var
       a,b,h:integer;
       s:real;
Begin
write('a=');
read(a);
write('b=');
read(b);
write('h=');
read(h);
s:=0.5*(a+b)*h;
writeln('s=',s:2:0);
readln;
end.