VAR
 f,f1:TEXT;
 c:CHAR;
 S:STRING;
 i:BYTE;
 SUM:WORD;

BEGIN
 SUM:=0;
 Assign(f,'D:\x');
 ReSet(f);
 Assign(f1,'D:\x1');
 ReWrite(f1);
 REPEAT
  Read(f,c);
  IF c<>' ' THEN Write(f1,c) ELSE WriteLn(f1);
 UNTIL EoF(f);
 Close(f);
 Close(f1);

 Assign(f,'D:\x1');
 ReSet(f);
 Assign(f1,'D:\x2');
 ReWrite(f1);
 REPEAT
  ReadLn(f,S);
  IF ((S[1]=':') OR (S[1]=';')) AND
     ((S[2]='(') OR (S[2]=')') OR (S[2]='[')
     OR (S[2]=']') OR (S[2]='-')) THEN WriteLn(f1,S);
 UNTIL EoF(f);
 Close(f);
 Close(f1);
 Erase(f);

 Assign(f,'D:\x2');
 ReSet(f);
 Assign(f1,'D:\x3');
 ReWrite(f1);
 REPEAT
  ReadLn(f,S);
  IF (S[2]='(') OR (S[2]=')') OR (S[2]='[')
     OR (S[2]=']') OR (S[2]='-') THEN
   BEGIN
    c:=S[2];
    i:=2;
    REPEAT
     INC(i);
    UNTIL (S[i]<>c) OR (i=Length(S));
    IF (c<>'-') AND (i=Length(S)) THEN WriteLn(f1,S);
    IF (c='-') AND (i<Length(S))
    AND ((S[i]='(') OR (S[i]=')') OR (S[i]='[')
      OR (S[i]=']'))THEN
     BEGIN
      c:=S[i];
      REPEAT
       INC(i);
      UNTIL (S[i]<>c) OR (i=Length(S));
      IF (S[i]=c) AND (i=Length(S)) THEN WriteLn(f1,S);
     END;
   END;
 UNTIL EoF(f);
 Close(f);
 Close(f1);
 Erase(f);

 Assign(f,'D:\x3');
 ReSet(f);
 REPEAT
  ReadLn(f,S);
  INC(SUM);
 UNTIL EoF(f);
 Close(f);
 Erase(f);

 WriteLn('Text contains ',SUM,' smiles');
 ReadLn;
END.