Ответ:
Я разбили это задание на четыре номер и во втором вы дали не полное условия
Они выводят информацию туда куда тебе нужно
Var
a,b,h,s:real;
begin
readln(a,b); // нижнее, верхнее основание
readln(h); // высота
s:=((a+b)/2)*h;
writeln(s);
end.
Не знаю какой конкретно язык нужен (напишу в общих чертах)
A - массив
нужно лишь одно условие
for i=1 to 12 do
if A[i]>A[i+1] then print A[i+1]