s4:set of char=[’b’..’d’,’f’..’h’,’j’..’n’,’p’..’t’,’v’..’z’]；
s5:set of char=[’B’..’D’,’F’..’H’,’J’..’N’,’P’..’T’,’V’..’Z’]；
s1:set of char=[’a’..’z’]；
s2:set of char=[’A’..’Z’]；
s3:set of char=[’a’,’o’,’e’,’A’,’O’,’E’,’u’,’U’,’i’,’I’]；
var
i,j,k,la,lb,lc,laa:longint；
s,ss,sss,sa,sx:string；
begin
readln(s)；
laa:=length(s)；
la:=0；
for i:=1 to laa do
if (s[i] in s1) or (s[i] in s2) then inc(la)；
if la mod 3<>0 then begin
lb:=round(la/3)；
lc:=round(la*2/3)；
end
else begin
lb:=la div 3；
lc:=lb*2；
end；
j:=0； k:=0；
for i:=1 to laa do
begin
if (s[i] in s1) or (s[i] in s2) then
begin
inc(j)；
if (s[i] in s2) or (s[i] in s1) then sa[i]:=’.’ else sa[i]:=s[i]；
if j<=lb then
begin
sx[i]:=s[i]；
ss[i]:=s[i]；
end
else begin
ss[i]:=’.’；
if (s[i] in s5) or (s[i] in s4) then begin
sx[i]:=s[i]； inc(k)；
end
else sx[i]:=’.’；
end；
if j<=lc then sss[i]:=s[i]
else begin
sss[i]:=’.’；
end；
end
else begin
sx[i]:=s[i]；
sa[i]:=s[i]；
ss[i]:=s[i]；
sss[i]:=s[i]；
end；
end；
for i:=1 to laa do
write(sa[i])；
writeln；
for i:=1 to laa do
write(ss[i])；
writeln；
if k<>0 then begin
for i:=1 to laa do
write(sx[i])
end
else for i:=1 to laa do
write(sss[i])；
end.
abcd efgh cccc
应该出现
.... .... ....
abcd .... ....
abcd efgh ....