Женьку

var
   A, B: set of char;
   i: byte;
   c: char;
BEGIN
   A:=['1'..'9', 'I', 'V', 'X'];
   B:=[];
   write('-> ');
   repeat
      read(c);
      if (upcase(c) in A) then B:=B+[c];
   until c='0';
   for i:=0 to 255 do
      if (chr(i) in B) then write(chr(i):2);
   writeln;
END.