Напишите программу в которой одномерный массив на 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]<=20) then

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.