AnPol_4

Var
    V: Integer;
    C: Char;
    S, T: String;
Begin
    For C:= 'A' To 'Z' Do Begin
      V:= V + 1;
      Str(V, T);
      S:= S + C + T;
    End;
    WriteLn(S);
End.