Составить программу на языке паскаль: введите с клавиатуры значение сторон трапеции и найдите её площадь.

Площадь трапеции определяется, как произведение полусуммы оснований на высоту трапеции. Для определения высоты трапеции h по длинам её сторон (a,b,c,d, при этом a - большее основание, b - меньшее основание) в общем случае есть формула: [latex]h= \sqrt{c^2-\left (\frac{(a-b)^2+c^2-d^2}{2(a-b)}\right )^2}[/latex] var   a, b, c, d, h, s: real; begin   Write('Длина большего основания: '); Readln(a);   Write('Длина меньшего основания: '); Readln(b);   Write('Длины боковых сторон (через пробел): ');   Readln(c, d);   h := sqrt(sqr(c) - sqr((sqr(a - b) + sqr(c) - sqr(d)) / (2 * (a - b))));   s := (a + b) / 2 * h;   Writeln('Площадь трапеции равна ', s:0:4) end. Тестовое решение: Длина большего основания: 10 Длина меньшего основания: 7 Длины боковых сторон (через пробел): 3 5 Площадь трапеции равна 23.4928