Дан массив целых чисел заполненный случайнымими из диапазона -25… 25. Найдите…

Program pr; Var a: array[1… 10] of integer; sum, i: integer; Beginfor i: =1 to 10 do Begin a[i]: =random (51) -25; Write (a[i], '; '); end; Writeln; sum: =0; for i: =1 to 10 do if a[i] mod 5=0 then sum: =sum+a[i]; Writeln ('sum=', sum); readln; end.