На заданном пользователем отрезке найти сумму чётных чисел.

Vara:array [1..1000] of integer;i,n,sum:integer;beginrandomize;write('Введите максимальное число массива:');Readln(n);beginfor i:=1 to n doa[i]:=random (20)+20;end;Writeln('Массив состоит из следующих чисел:');for i:=1 to n dowrite(' ',a[i]);Writeln();sum:=0;for i:=1 to n doif a[i] mod 2 = 0 then sum:=a[i]+sum;

writeln('Сумма всех чётных чисел равна : ',sum);end.