переведите из паскаля в с++

[drente]

program q;
var s1,s2,s3:string;
m1,m2,m3,m4:set of char;
l1,l2,l3,i1,i2,i3:integer;
j:char;
begin
readln(s1,s2,s3);
l1:=length(s1);
l2:=length(s2);
l3:=length(s3);
m1:=[];
m2:=[];
m3:=[];
for i1:= 1 to l1 do
m1:=m1+[s1[i1]];
for i2:= 1 to l2 do
m2:=m2+[s2[i2]];
for i3:= 1 to l3 do
m3:=m3+[s3[i3]];
m4:=m1*m2*m3;
for j:='a' to 'z' do
if j in m4 then write(j);
end.

[Mandrivnyk]

В С++ нет множеств в том понимании, в котором они есть в Паскале.
Поэтому было бы неплохо, чтобы вы озвучили, собственно, само задание.
И, да -- еще и цену вопроса, ага...

[drente]

даны три слова напечатать их общую букву.... т.е мама папа бабушка а вывести должно букву а

[drente]

помогите если не сложно

[_Bers]

http://www.programmersforum.ru/showthread.php?t=34061