Написать программу ** языке Turbo Pascal .Вычисления площади равнобедренной трапеции.

Question

Написать программу на языке Turbo Pascal .
Вычисления площади равнобедренной трапеции.

Answer 1

Program STrapicii ;
var
a, b, h, S : Integer ;
begin
 writeln('Type a');
 readln(a)
 writeln('Type b');
 readln(b) ;
 writeln('Type h');
 readln(h) ;
 S:=1/2*(a+b)*h ;
 writeln(h) ;
end.