Pascal abc как написать формулу площади? 1/2*h*(a+b)

Var 
    a, b, s, h :real;
begin 
    s:= (a+b)*h/2;
end.

Var a,b,h:integer;
     s:real;
begin
writeln('Введите h');
     readln(h);
writeln('Введите a');
     readln(a);
writeln('Введите b');
     readln(b);

s:=1/2*h*(a+b);

writeln('Площадь равна:',s);
end.