написать программу в ПАСКАЛЕ: в тексте, состоящем из латинских букв и заканчивающеемся точкой, посчитайте количество гласных букв.

constj=['a','e','i','j','o','u'];vara:string;b:char;n,i,k:integer;begin  repeat     read(b);     a:=a+b;  until b='.';n:=length(a);n:=n-1; {без точки} for i:=1 to n do    if a[i]in j then        k:=k+1;writeln(k);end.