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

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