Помогите с задачей по инфе

program sredne; var n,k,j,a:integer; s:real; begin s:=0; k:=0; write('n='); readln(n);for j:=1 to n begin write('a(',j,')='); readln(a); if ((a mod 10)=6) then begin s:=s+a;k:=k+1 end end; if (k=0) then writeln('Элементов нет') else writeln('Среднее=',s/k) end.

8 11 34 13 1 54 66 55 83 9
66 1 66
20 68 46 36 15 71 93 54 9 76
158 3 52.6666666666667
41 47 50 21 33 10 59 17 93 10
cifr,okan4iv na 6, net
45 28 88 76 28 68 26 9 4 33
102 2 51
80 30 24 49 26 35 5 49 21 87
26 1 26
59 76 93 34 55 9 64 42 97 12
76 1 76
93 63 35 15 48 22 100 14 3 35
cifr,okan4iv na 6, net
55 93 54 41 85 83 68 73 100 34
cifr,okan4iv na 6, net
50 42 70 18 43 55 82 55 43 51
cifr,okan4iv na 6, net
23 62 49 69 89 38 31 30 16 53
16 1 16
23 59 37 88 48 20 69 75 62 79
cifr,okan4iv na 6, net
17 81 21 96 7 7 80 38 47 12
96 1 96
12 18 5 72 54 57 22 47 75 76
76 1 76
40 91 75 9 64 72 2 44 41 28
cifr,okan4iv na 6, net
99 81 70 42 74 28 36 44 95 13
36 1 36
65 35 11 19 8 44 96 55 50 98
96 1 96
22 38 40 29 51 14 52 97 56 91
56 1 56
66 45 70 7 76 71 50 16 23 33
158 3 52.6666666666667
79 6 52 76 81 33 98 81 68 91
82 2 41
88 42 13 96 80 70 41 2 17 17
96 1 96
51 41 11 28 65 85 50 19 90 38
cifr,okan4iv na 6, net
33 78 22 45 24 88 62 38 39 87
cifr,okan4iv na 6, net
59 94 52 34 87 26 26 18 35 1
52 2 26
75 85 28 71 41 82 75 44 8 42
cifr,okan4iv na 6, net
34 72 32 80 16 60 96 25 94 12
112 2 56
99 64 60 91 58 25 87 8 44 76
76 1 76

язык?