Напишите программу в pascal

Задаются границы диапазона

найти сумму тех чисел которые четные

var a, b, i, z, x:integer;

q:array [1 ... 20] of integer;

begin

write ('Верхняя граница=') ; readln (a) ;

write ('Нижняя граница=') ; readln (b) ; x:=a-b; randomize;

for i:=1 to 20 do

begin

q[i]:=random (x) + b;

write (q[i],' ') ;

if (q[i]mod 2=0) then z:=z+q[i];

end;

writeln;

write ('Сумма четных чисел=', z) ;

end.