Составить программу Паскаль для нахождения площади трапеции с основаниями а ,б меньшн h

Предыдущий
вопрос Следующий
вопрос

program TrapezeArea;

var
a, b, h, area: real;

begin
writeln('Enter the length of the smaller base of the trapeze (a): ');
readln(a);

writeln('Enter the length of the larger base of the trapeze (b): ');
readln(b);

writeln('Enter the height of the trapeze (h): ');
readln(h);

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

writeln('The area of the trapeze is: ', area:0:2);

end.