Uses crt;
var
a,b,h,S:real;
begin
writeln('Поиск площади трапеции через основание и высоту');
writeln();
write('Введи основание а = ');
readln(a);
writeln();
write('Введи основание b = ');
readln(b);
writeln();
write('Введи высоту h = ');
readln(h);
S:=h*(a+b)/2;
writeln('Ответ: ',S);
end.
