Среди сгенерированных случайным образом 20 чисел из отрезка [ 1; 1000] подсчитать…

vara: array[1… 20] of integer; i,sum,kol: ineger; beginfor i: =1 to 20 dobegin a[i]: =random (1001); if (a[i] mod 2)=0) and (a[i] mod 7)=0) thenbeginsum: =sum+a[i]; kol: =kol+1; end; end; write (sum,+'+kol); end.