program gf;
Type TSet= Set Of Char;
Var s,t:String;
m:TSet;
i:Byte;
Procedure Init(x:String; Var m:Tset);
Var i:Byte;
Begin
m:=[];
For i:=1 To Length(x) Do
m:=m+[x[i]];
End;
Begin
writeln('Vvedite pervoe chislo:');
Readln(s);
writeln('VVedite pervoe chislo:');
Readln(t);
Init(t,m);
i:=1;
While i Else Inc(i);
Writeln('Rezyltat:');
Writeln(s);
Readln;
End.