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.