Для заданных X и Y вычисляются значения функции Z=cos (N*X+Y), N = 1, 2, … 30 , записать в массив В значения N, при которых Z > 0, а в массив C значения N, при которых . Результат распечатать в виде:

Исходный массив:

Число элементов:

X = Y =

Массив В: Массив С:

//PascalABC.NET 3.1 сборка 1200begin    var b := new System.Collections.Generic.List<integer>();    var c := new System.Collections.Generic.List<integer>();    var x := ReadReal('x =');    var y := ReadReal('y =');    for var n := 1 to 30 do     begin        var z := cos(n * x + y);        if z > 0 then b.Add(n);        if z < 0 then c.Add(n);    end;         Println('X=' + x + ' Y=' + y);    Println('Массив В:', b);    Println('Массив C:', c);end.