Составить трассировочную таблицу для алгоритма при а=13, b=12. Каков результат?

февраль зимний месяц

май весенний месяц

август летний месяц 

сентябрь осенний месяц

1) номера букв с начала алфавита - 16,5,20,25,17 с конца алфавита - 18,29,14,9, 17 сумма номеров для каждой буквы 34. в - 3+31, ц -24+10. и это для любой буквы 2) игра в города волгодонск, калуга

var a: integer;

s: string;

begin

  read(a);

  case a of

      1: s: ="i";

      5: s: ="v";

      10: s: ="x";

      50: s: ="c";

      100: s: ="c";

      500: s: ="i";

      1000: s: ="m;

  end;

  writeln(s);

end.

римские соответствия не все помню