Женьку

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
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.