program nrordineLitere;
var ch: char;
cod:integer;
begin
writeln(' codurile literelor mari;');
for ch:='Z' downto 'A' do
write(ch:4);
writeln;
for ch:='Z' downto 'A' do
write(ord(ch):4);
writeln; writeln;
writeln(' codurile literelor mici;');
for ch:='z' downto 'a' do
write(ch:4);
writeln;
for ch:='z' downto 'a' do
write(ord(ch):4);
writeln;
end.