Напишите программу в 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.