Вывести символы латинского алфавита с увеличением на 1 символ:
( Паскаль Абс)
Z
Z Y
Z Y X
...
Z Y X ... B A

Var C,A:char;
Begin
For A:= 'Z' downto 'A' do
    Begin
    For C:= 'Z' downto A do
        Write(C,' ');
    WriteLn;
    End;
End.