Вопрос Помогите пожалуйста сделать в паскале.

c:=0; for i:=1 to 20 do begin a:=random(201); if a mod 10 = 0 then inc(c); end;

const n=20; var a: array[1..n] of integer; i,k:integer; begin k:=0; for i:=1 to n do begin a:=random(201); write(a,); if a mod 10=0 then inc(k) end; writeln; writeln(k) end.

8 198 47 33 112 49 59 155 123 135 93 22 59 164 141 127 56 96 33 35 0 7 58 152 115 129 62 73 200 178 58 110 65 106 148 69 151 11 1 55 7 2 94 187 45 48 142 37 159 159 101 137 179 188 188 197 86 62 43 62 56 107 0 145 135 149 139 107 78 81 113 126 46 154 15 110 75 171 96 118 151 89 151 1 152 142 88 86 24 105 118 96 150 111 196 23 134 112 179 161 108 76 78 139 1 134 79 78 165 89 53 93 162 29 88 67 54 158 141 39 192 32 103 53 104 0 65 147 149 185 186 143 128 192 183 143 200 6 97 190 150 138 1 22 72 169 3 100 187 36 150 62 47 69 61 151 170 180 138 136 11 114 10 149 139 81 110 6 63 51 41 196 191 109 186 48 19 126 85 153 147 60 173 68 118 49 152 148 1 190 141 8 31 128 29 83 36 69 177 170 32 163 101 34 183 127 9 163 93 2 138 97 182 35 191 66 146 177 109 118 16 139 157 27 180 20 43 28 48 51 2 164 196 6 39 189 81 119 53 145 68 41 88 87 157 85 72 42 24 138 2 0 161 62 89 10 76 77 15 162 82 124 128 116 192 130 154 154 170 163 1 21 3 9 22 142 95 131 26 72 126 26 31 44 108 40 157 2 69 103 185 124 138 1 78 64 127 60 131 197 103 56 18 157 2 74 76 101 64 52 99 9 66 122 1 12 109 101 65 188 56 77 128 75 16 184 99 138 157 25 30 27 87 93 108 1 116 136 51 161 104 145 153 127 48 45 108 145 193 60 160 149 152 116 43 196 2 17 178 139 109 75 39 101 36 110 138 43 146 17 153 40 82 84 182 110 47 3 88 1 10 133 151 20 179 190 132 67 120 172 26 119 14 192 101 135 94 21 4 166 183 63 16 17 124 15 93 41 137 164 128 139 88 31 25 10 39 135 83 1 151 123 8 136 44 136 150 21 106 47 176 118 144 199 170 35 143 200 22 167 3 119 170 73 182 36 18 176 174 2 139 4 169 34 44 134 95 156 25 2 110 2 80 51 184 37 158 39 200 96 114 26 125 113 129 32 10 5 67 24 63 4 3 120 58 26 167 46 191 153 58 7 58 145 157 141 18 36 19 192 192 177 58 1 65 40 79 60 64 99 186 140 70 194 12 178 62 151 194 121 10 22 89 166 5

Хм.

Чем помочь? Один цикл, один счетчик, одна проверка на остаток от деления на 10...