Question

Pascal abc Как написать формулу площади? 1/2*h*(a+b)

Answer 1

var a,b,h:integer;
     s:real;
begin
writeln('Введите h');
     readln(h);
writeln('Введите a');
     readln(a);
writeln('Введите b');
     readln(b);

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

writeln('Площадь равна:',s);
end.