Дан целочисленный массив из 30 элементов. Элементы массива могут принимать значения от –1000 до 1000. Опишите на русском

program avrg; const N = 30; var a: array [1..N] of integer; i, y: integer; //индекс массива и счетчик чисел, оканчивающихся на 5  s: real; // сумма чисел, оканчивающихся на 5 begin for i:= 1 to N do a[i]:= random(2001) - 1000; s:=0; for i:=1 to N do begin write(a[i] : 5); if (a[i] mod 10 = 5) or (a[i] mod 10 = -5) then begin s:= s + a[i]; y:= y + 1;endend;writeln();if y > 0 then writeln (s / y) else writeln (\'Нет цифр,оканчивающихся на 5\')end.