program T21; begin writeln('(AL)pha:'); writeln('"A" =' ,al('A'):6:0); writeln('"Z" =', al('Z'):6:0); writeln; writeln('langer string:'); writeln('ist wie "27mal":'); writeln('" A" =' ,al(' A'):6:0); writeln('" Z" =', al(' Z'):6:0); writeln('"A " =', al('A '):6:0); writeln('"AA" =', al('AA'):6:0); writeln; writeln('Summe der Alphas'); writeln('"AA" =', SumAl('AA'):6:0); writeln('"ZZ" =', SumAl('ZZ'):6:0); writeln; writeln('(AS)cii:'); writeln('"A" =' ,as('A'):6:0); writeln('"a" =', as('a'):6:0); writeln; writeln('Roman:'); writeln(DecToRoman(1984)); writeln(RomanToDec('MCMLXXXIV')); end.