Question

ПОМОГИТЕ,ПОЖАЛУЙСТА составить программу, которая выводит коды символов от а до я

Answer 1

Var a : Char;
Begin
  For a:='а' to 'я' do Writeln(a,'  ',Ord(a));
end.

Answer 2

Спасибо огромное!