Составить программу вычисления площади равнобедренной тропеции

Program up1;
var q,w,e:integer;r:real;
begin
write('введите длинну оснований трапеций');
read(q,w);
write('введите высоту трапеции');
read(e);
r:=0.5*e(w+q);
write('S=',r);
end.