var
s1,s2,s3,s:string;
a,b,c:set of char;
i:integer;
begin
s1:='krokodil';
s2:='kubik';
s3:='';
a:=[];b:=[];
for i:=1 to Length(s1) do a:=a+[s1[i]];
for i:=1 to Length(s2) do b:=b+[s2[i]];
c:=a*b;
s:=s1+s2;
for i:=1 to Length(s) do
if (s[i] in c)and(Pos(s[i],s3)=0)
then s3:=s3+s[i];
Edit3.Text:=s3;
end;
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.