Pascal ABC. Написать программу, которая находит сумму четных элементов массива произвольного размера (размер и элементы массива вводятся с клавиатуры).

var   a:array of integer;   i,b,c:integer; BEGIN   write('Введите размер массива - ');   readln(b);   setlength(a,b);   writeln('Введите элементы массива - ');   for i:=0 to b-1 do begin     readln(a[i]);     if a[i] mod 2 = 0 then c:=c+a[i];   end;   writeln('Сумма четных элементов массива  - ',c); END.