Числовой ряд из 10 чисел задаётся генератором случайных чисел в диапазоне от 1 до 20. Найти сумму чисел, кратных 4

Задание оформлено на ЯПВУ Паскаль. Для простоты случайные числа записываются в массив из 10 элементов. С помощью комментариев в коде описаны ключевые действия программы. Комментарии от кода отделяются символами "//".

var

m:array[1 ... 10] of integer; //объявление массива

i, s:integer; //объявление необходимых переменных

begin

randomize; //запус генератора случайных чисел

for i:=1 to 10 do / /цикл-счетчик для заполнения массива

begin

m[i]:=random (20); //элементу массива задается случайное значение

write (m[i],' ');

end;

for i:=1 to 10 do//цикл-счетчик подсчета суммы

if m[i] mod 4 = 0 then s:=s+m[i]; //проверка кратности на 4, вычисление суммы

write ('Сумма = ', s); //вывод суммы на экран

end.