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