В равнобедренной трапеции большее основание a, средняя линия sl, боковая сторона

procedure trapezoid(a, sl, c: real; var b, S, h, d: real);

begin

 b := 2 * sl - a;

 h := Sqrt(c * c - Sqr((a - b) / 2));

 S := h * (a + b) / 2;

 d := Sqrt(sl * sl + h * h);

end;

begin

 var a := 10;

 var sl := 7;

 var c := 5;

 var b, S, h, d: real;

 trapezoid(a, sl, c, b, S, h, d);

 Print(b, S, h, d)

end.