Составьте программу, которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 1 до 10 и вычисляет сумму

var a: array [1..10] of integer;

i, m: integer;beginfor i := 1 to 10 do

begina[i] := random (100) - 50;writeln (\'a[\', i, \'] = \', a[i]);if (a[i] mod 2 = 0) then m := m + a[i];end;writeln (\'Сумма элементов массива с четными значениями равна \', m);end.