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