Code Corona

program count_vowels; { count the number of vowels }
var stg : string;
x, y : integer;
procedure count;
begin
for x := 1 to length(stg) do
case stg[x] of
'a','e','i','o','u': y:= y + 1
end;
end;
begin
write('Enter a sentence :'); readln(stg);
y:=0;
count;
writeln('Number of vowels =',y:4)
end.