Задачка 1. Арифметическая прогрессияВасе дали задание: в заданной последовательности чисел

Бережём в памяти 3 последних считанных числа. Для каждой таковой тройки проверяем, правильно ли, что a[i] - a[i - 1] = a[i - 1] - a[i - 2] gt; 0. Если это так, выводим тройку, устанавливаем флаг found и выходим из цикла. Если после окончания работы цикла found = false, то тройка не найдена, необходимо вывести -1.

В PascalABC.NET тип integer бережёт числа до 2 с лишним миллиардов, все числа и разность чисел должны в нем поместиться.

Код (PascalABC.NET 3.4.2.1837):

begin

 var values := new integer[3];

 var n := readinteger;

 (values[1], values[2]) := readinteger2;

 var prev_diff := values[1] - values[0];

 var found := false;

 for var i := 3 to n do begin

   values[i mod 3] := readinteger;

   var diff := values[i mod 3] - values[(i - 1) mod 3];

   if (diff = prev_diff) and (diff gt; 0) then begin

     print(values[(i - 2) mod 3], values[(i - 1) mod 3], values[i mod 3]);

     found := true;

     break;

   end;

   prev_diff := diff;

 end;

 if not found then print(-1);

end.