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

Площадь трапеции определяется, как произведение полусуммы оснований на высоту трапеции. Для определения высоты трапеции h по длинам её сторон (a,b,c,d, при этом a - большее основание, b - меньшее основание) в общем случае есть формула:
$h= \sqrt{c^2-\left (\frac{(a-b)^2+c^2-d^2}{2(a-b)}\right )^2}$

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

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