Ввести целое n, затем ввести n вещественных элементов одномерный массива x, используя процедуру vvod. Найти сумму и произведение элементов,не попавших в заданный отрезок[а;b] (значения параметров a и b ввести с экрана). Вывести на экран значения элементов,не попавших в заданный отрезок и их количество

//Pascal ABC.NET 3.1 сборка 1219Var n,a,b:integer; x:array of integer; procedure vvod(n:integer; var x:array of integer); begin  x:=readarrinteger(n); end; begin readln(n,a,b); vvod(n,x); var sub1:=x.Where(x -> x<a); var sub2:=x.Where(x -> x>b); var sub:=sub1+sub2; n:=1; writeln('Сумма не вошедших:',sub.Sum); foreach var i in sub do n:=n*i; writeln('Произведение не вошедших:',n); writeln('Количество не вошедших:',sub.Count); writeln('Все элементы:',sub);end.Пример ввода:515-1-2456Пример вывода:Сумма не вошедших:3Произведение не вошедших:12Количество не вошедших:3Все элементы:[-1,-2,6]