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

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.