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

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