Daca luam ca un diftong este format din 2 vocale care sint la rind:
var
vocala:set of char;
s:string;
i,n:integer;
begin
read(s);
vocala:=['a','e','i','o','u','A','E','I','O','U'];
for i:=1 to length(s)-1 do
if(s[i] in vocala) and (s[i+1] in vocala) then
begin
n+=1;
write(s[i],s[i+1],' ');
end;
writeln;
write(n);
end.
