Напишите программу в которой одномерный массив на 10 элементов , нужно заполнить по формуле только четными значениями. Выведите массив строчку. Найдите количество значений лежащих в промежутке [6 до 20] (включительно 20). Произведение тех, которые больше 10

Var A:array[1..10] of Integer;
i,N,k,l,j:integer;
begin
Readln(N);
For i:=1 to N do
A[i]:=Random(1,10);
For i:=1 to N do
Write(A[i], );
Writeln;
For i:=1 to N do
  If (A[i]>=6) and (A[i]  k:=k+1;
Writeln(количество значений лежащих в промежутке [6 до 20] ,k);
For i:=1 to N-1 do
  For j:=i+1 to N do
    If A[i]*A[j]>10 then
    l:=l+1;
Writeln(количество значений произведение которых больше 10,l);
end.