процедура ROT13 (AStrLst: TStringList);
var
iий, j: интежер;
c: чарс;
AStr: шнур;
s: шнур;
начните
для I: = 0 к AStrLst.Count - 1 начинает
AStr: = AStrLst [I];
s: = '';
для j: = 1 к длине (AStr) начинает
c: = AStr [j];
если (, то ((>= «a c ") И (c <>= «a ") И (c <>= «n ") И (c <>= «n ") И (c <>
|