Пожалуйста помогите алгебрологическое програмирование 1/2(a+b)h
решите

Program z10;  Var  a,b,h:integer; s:real;Begin  write(Введите A = ); readln(a);  write(Введите B = ); readln(b);  write(Введите H = ); readln(h);
  s:=1/2*(a+b)*h;    writeln(Ответ = , s);End.