Найдите значения выражения (А+1)+(—А+0)

// F#
[<EntryPoint>]
let main argv =
    let getRandomCollection n =
        let rand = new System.Random()
        Array.map (fun x -> rand.Next(-10, 10)) [| 1..n |]
    let input = getRandomCollection 15
    let reverse = input |> Array.rev
    let notChangedcount = Array.map2 (fun x y -> x = y) input reverse |> Array.filter (fun x -> x) |> Array.length
    let maxAbsNotPositiveElem =
        input
        |> Seq.where (fun x -> x <= 0)
        |> Seq.maxBy (fun x -> System.Math.Abs x)
    System.Console.WriteLine (input |> Array.map (fun x -> sprintf "%d" x) |> String.concat " ")
    System.Console.WriteLine (reverse |> Array.map (fun x -> sprintf "%d" x) |> String.concat " ")
    System.Console.WriteLine (notChangedcount |> sprintf "Not changed: %d")
    System.Console.WriteLine (maxAbsNotPositiveElem |> sprintf "Max min element: %d")
    System.Console.ReadKey true |> ignore
    0
    

program pr;

label cyc;

const

sizeX = 4; // количество ячеек в каждой строке

sizeY = 4; // количество строк

var

matrix: array[1..sizeY, 1..sizeX] of integer;

i,k:integer;

begin

writeln('Чтение элементов массива');

for i:=1 to sizeY do for k:=1 to sizeX do readln(matrix[i,k]);

writeln('Исходный массив:');

for i:=1 to sizeY do begin

for k:=1 to sizeX do begin

 write(matrix[i,k]);

end;

writeln('');

end;

writeln('Подходящие строки: ');

for i:=1 to sizeY do begin

for k:=2 to sizeX do begin

  if matrix[i,k]>=matrix[i,k-1] then goto cyc;

end;

writeln(i);

cyc:

continue;

end;

end.