Составить алгоритм и программу подсчитывающую количество больших чем соседних…

На выводе массива поставил вывод до 4 знака после запятой, можете убрать, если захотите. Или вообще вывод массива убратьuses crt; const n=16; var i,ans: integer; mas: array[1… n] of real; beginwriteln ('Массив: '); for i: =1 to n dobeginmas[i]: =cos (i) /i; writeln (mas[i]: 0:4); end; if mas[1]>mas[2] theninc (ans); for i: =2 to n doif (mas[i]>mas[i-1]) and (mas[i]>mas[i+1]) theninc (ans); writeln ('Ответ: ',ans); end.