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

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.