Var i,n: integer; s: string; a: array[1..32,1..2] of string; begin n: =1; for i: =ord('а') to ord('я') do begin str(i,s); a[n,1]: =chr(i)+' - '+s; inc(n); end; n: =1; for i: =ord('а') to ord('я') do begin str(i,s); a[n,2]: =chr(i)+' - '+s; inc(n); end; for i: =1 to 32 do writeln(a[i,1],' ',a[i,2]) end. результат выполнения программы в среде pascalabc.net а - 192 а - 224 б - 193 б - 225 в - 194 в - 226 г - 195 г - 227 д - 196 д - 228 е - 197 е - 229 ж - 198 ж - 230 з - 199 з - 231 и - 200 и - 232 й - 201 й - 233 к - 202 к - 234 л - 203 л - 235 м - 204 м - 236 н - 205 н - 237 о - 206 о - 238 п - 207 п - 239 р - 208 р - 240 с - 209 с - 241 т - 210 т - 242 у - 211 у - 243 ф - 212 ф - 244 х - 213 х - 245 ц - 214 ц - 246 ч - 215 ч - 247 ш - 216 ш - 248 щ - 217 щ - 249 ъ - 218 ъ - 250 ы - 219 ы - 251 ь - 220 ь - 252 э - 221 э - 253 ю - 222 ю - 254 я - 223 я - 255