Для нахождения площади трапеции надо знать как минимум основания и высоту: s = (a+b)/2*h
Дальше линейный алгоритм:
var a,b,h:real;
begin
writeln('Введите длины оснований (a,b) и высоты h');
readln(a,b,h);
writeln('Площадь трапеции = ', (a+b)/2+h);
end.