[Serioja]

Составить подпрограмму-функцию, которая логической переменной A присваивает значение TRUE, если значение S=(x1*yn)^2+(x2*yn-1)^2+...+(xn*yn-1)^2 принадлежит к отрезку [0, 1] и значение FALSE в противном случае. Вычислить S и A для заданной матрицы B, если в качестве X взять первую строку, а в качестве Y - последний столбик заданной матрицы.