var word : string
var vowel : array 1 .. 10 of char := init ('a', 'e', 'i', 'o', 'u', 'A', 'E', 'I', 'O', 'U')
% you can give values to array variable using init(initialization)

var isvowel : boolean
% boolean type can have only true or false.

put "Please enter any one word for me to spell out without any vowels: " ..
get word

for i : 1 .. length (word)
    isvowel := false
    % set isvowel = false
    for j : 1 .. 10
        if word (i) = vowel (j) then
            % if word(i) is a vowel
            isvowel := true
            % iswovel becomes true
        end if
    end for
    if isvowel = false then
        % if isvowel is false(isnot true), which means word(i) isnt vowel
        put word (i) ..
    end if
end for

var vowels : string := "aeiouAEIOU"
var word : string

put "Please enter any one word for me to spell out without any vowels:" ..
get word

for i : 1 .. length (word)
    if index (vowels, word (i)) <= 0 then
        put word (i)..
    end if
end for