Дан набор целых чисел (>2),оканчивающийся 0.Набор называется пилообразным ,если каждый его внутренний элемент либо больше , либо меньше обоих своих соседей (то есть является "зубцом"). если данный набор является пилообразнм , то вывести 0; в противном случае вывести номер первого элемента, не являющегося зубцом.

Объяснение:

меньше обоих своих соседей (то есть является "зубцом"). если данный набор является пилообразнм , то вывести 0; в противном случае вывести номер первого элемента, не являющегося зубцом

(1+1/sqr((12*x), если без игрика, а как игрик впихнуть не могу

var

a,b: real;

begin

readln(a,b);

if (a> 0) or (b< -2) then

writeln('истинно')

else

writeln('ложно');

end.