Var a,b,s,h:real;beginwrite('Введите стороны a,b и h через пробел: ');readln(a,b,h);writeln(' ');if a
Не знаю, правильно ли я Вас понял, но я сделал так, если при вводе значения a и b, число a окажется больше b, то выдаст ошибку, если введете все верно (a<b), то вам выдаст площадь трапеции