const   yy              :set of char=['A','E','I','O','U'];
var     q,a             :string;
        i               :longint;

begin
        readln(q);
        while q[1]=' ' do delete(q,1,1);
        while q[length(q)]=' ' do delete(q,length(q),1);
        a:='';
        for i:=1 to length(q) do
                case q[i] of
                        ' ':if a[length(a)]<>' ' then a:=a+' ';
                        '.',',','?':if a[length(a)]=' ' then a[length(A)]:=q[i] else a:=a+q[i];
                        else if not (q[i] in yy) and (pos(q[i],a)=0) then a:=a+q[i];
                end;
        writeln(a);
end.

• 晕，这一题要完全保证输出的前后没有空格，不然PE郁闷死... (670) wrong123 2005-12-23 03:13:59