Вам что- то очень сложно задают для 1-4 класса. Извини, я не могу помочь.
Для вычисления используется формула I=log₂N=log₂15≈4
Type mas=Array [1...100] of integer;
var i,n,itre:integer;
a:mas;
begin
readln(n);
for i:=1 to n
do read(A[i]);
for i:=2 to n-1
do if (A[i]>A[i-1]) and (A[i]>A[i+1])
then itre:=i;
for i:=1 to itre-2
do writeln(A[i]);
end.
Текст, таблицы и рисунки (но это уже исходя из типа документа).