Составить алгоритм нахождения суммы рандомных четных элементов. длина массива 5 элем. помогите :)

//Pascal const   N = 5; var   a: array [1..N] of integer;   s: integer; begin   s := 0;   for var i := 1 to N do   begin     a[i] := Random(100);     if (a[i] mod 2 = 0) then s := s + a[i];     write(a[i]:5);   end;   writeln;   writeln('Сумма четных: ', s); end.