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