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