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;beginwriteln('Введите h');     readln(h);writeln('Введите a');     readln(a);writeln('Введите b');     readln(b);s:=1/2*h*(a+b);writeln('Площадь равна:',s);end.