Program q1q;
const ds=['а','е','и','о','у','ы','э','ю','я','А','Е','И','О','У','Ы','Э','Ю','Я'];
var i,r1: integer;
s: string;
begin
ReadLn(s);
r1:=0;
for i:=1 to length(S) do
if s[i] in ds then inc(r1);
writeLn(r1);
end.
это про гласные, нет времени больше, простите.