var
a,b:string;
c:byte;
begin
readln(a);
repeat begin
c:=pos(',',a);
b:=copy(a,1,c-1);
delete(a,1,c);
if pos(b,a)<>0 then write(b,' ');end;
until c=0;
end.

Цитата(Татьяна12678 @ 23.05.2011 2:07)

var
a,b:string;
c:byte;
begin
readln(a);
repeat begin
c:=pos(',',a);
b:=copy(a,1,c-1);
delete(a,1,c);
if pos(b,a)<>0 then write(b,' ');end;
until c=0;
end.

var
  a,b:string;
  c:byte;
begin
  readln(a);
  repeat
    c:=pos(',',a);
    b:=copy(a,1,c-1);
    delete(a,1,c);
    if pos(b,a)<>0 then begin
      write(b,' ');
      while pos(b,a)>0 do delete(a,pos(b,a),Length(b)+1)
    end
  until c=0;
end.

uses System.Collections.Generic;
var a : string;
begin
   with new System.Collections.Generic.SortedList<string, integer> do
   begin
      readln(a);
      foreach st:string in a.TrimEnd('.').Split(',') do
         if ContainsKey(st) then
         begin
            Item[st] := Item[st] + 1;
            if Item[st] = 3 then writeln(st);
         end
         else Add(st, 1);
   end;
end.

Цитата(Lapp @ 23.05.2011 23:55)

var
  a,b:string;
  c:byte;
begin
  readln(a);
  repeat
    c:=pos(',',a);
    b:=copy(a,1,c-1);
    delete(a,1,c);
    if pos(b,a)<>0 then begin
      delete(a,pos(b,a),Length(b)+1);
      if pos(b,a)<>0 then begin
        write(b,' ');
        while pos(b,a)>0 do delete(a,pos(b,a),Length(b)+1)
      end
    end
  until c=0;
end.

const Name: String[9]= 'IBM PC/AT';

const a : string = 'тут сама строка';

var
  a,b:string;
  c:byte;
begin
  a := 'one,two,two,three,four,two,five,one,one,two.';
  repeat
  ...

var a, b : string;
begin
   a := ''; b := '';
   writeln(pos(a, b));
end.

    if (c > 0) and (pos(b,a)<>0) then begin