пожалуйста помогите алгебрологическое програмирование 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.