Помогите в задачке по программированию.

Question

Нужно доделать, чтобы при выводе с конца буквы тоже на одну убирались. Вид такой:

Program primer2;

Uses
crt;

var
n: integer;

procedure rec(n, k: integer);
var
i: integer;
begin
if k <> n then
begin
for i := 26 - k to 25 do
write(chr(i+ ord('A')));

writeln;
rec(n, k - 1);
for i := 26 - k to 25 do
write(chr( i+ord('A')));
writeln;
end
else
begin

for i := 26 -k to 25 do
write(chr(i+ ord('A')));
writeln;
end;
end;

BEGIN
writeln('Введите n');
readln(n);
rec(n, 26);
readln;
END. Помогите в задачке по программированию.

Елена Ведерникова · Accepted Answer

Program primer2; 
 
Uses 
crt; 
 
var 
n: integer; 
 
procedure rec(n, k: integer); 
var 
i: integer; 
begin 
if k <> n then 
begin 
for i := 26 - k to k-1 do 
write(chr(i+ ord('A'))); 
 
writeln; 
rec(n, k - 1); 
for i := 26 - k to k-1 do 
write(chr( i+ord('A'))); 
writeln; 
end 
else 
begin 
 
for i := 26 -k to k-1 do 
write(chr(i+ ord('A'))); 
writeln; 
end; 
end; 
 
BEGIN 
writeln('Введите n'); 
readln(n); 
rec(n, 26); 
readln; 
END.

Наталья Пашко · Answer

Циклы должны быть не до 25, а до k-1. 
И условие в "if k <> n then" поменяй.