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

Конечно, вот пример программы на Turbo Pascal:

```
program TrapezoidArea;

var
a, b, h, area: real;

begin
writeln('Введите длину основания a: ');
readln(a);
writeln('Введите длину основания b: ');
readln(b);
writeln('Введите длину боковой стороны h: ');
readln(h);

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

writeln('Площадь равнобедренной трапеции равна: ', area:0:2);
readln;
end.
```

Программа запрашивает у пользователя длину оснований `a` и `b`, а также длину боковой стороны `h`. Затем она вычисляет площадь трапеции по формуле `((a + b) / 2) * h` и выводит результат на экран.