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.
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.