Program stroka5;
Var i,a:byte;
b:char;
begin
writeln ('введите число больше 0 и меньше 27'); readln(a);
for i:= 1 to a do
begin
b:=Chr(123-i);
write(b,' ');
end;
readln;
end.