Вася построил забор из имеющихся досок разной длины. Если рядом стоящие доски отличаются не более чем на 10 сантиметров, Вася считает эту часть забора ровной. Сколько есть неровных частей у забора? Формат ввода: n – количество досок в заборе (n

//PascalABC.Net 3.1 сборка 1200
begin
    var a := ArrRandom(20, 10, 40);
    var n := 0;
    for var i := a.GetLowerBound(0) to a.GetUpperBound(0) - 1 do
        if abs(a[i] - a[i + 1]) >= 10 then begin
            n := n + 1;
            writeln(( + a[i] + , + a[i + 1] + ));
        end;
    writeln(n);
end.