Составьте алгоритм и программу для вычисления площади равнобедренной трапеции. Длина большего основания a =18 см., длина меньшего основания b =10 см., диагонали d =16 см.

 (формулы во вложении)

var a,b,d:integer; h,s:real;begin a:=18; b:=10; d:=16; h:=sqrt(sqr(d)-sqr((a-b)/2)); s:=(a+b)*h/2; writeln(s:4:2);end.

Обязательно проверьте, мог ошибиться.