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