var word : string
var count : int
%Enter Word%
procedure getname
    put "Enter a word"
    get word
    count := length (word)
end getname
%Prints word backwards
procedure backwards
    put "The word printed backwards is "
    for decreasing a : count .. 1
        put word (a) ..
    end for
end backwards
%Removes V
owels
procedure novowels
    put ""
    put "The word wihtout vowels is"
    for c : 1 .. count
        if word (c) = "a" or word (c) = "e" or word (c) = "i" or word (c) = "u"  then
        else
            put word (c) ..
        end if
    end for
end novowels
getname
backwards
novowels

procedure novowels %This doesn't work...
    put ""
    put "The word wihtout vowels is"
    for c : 1 .. count
        if word (c) not= "a" or word (c) not= "e" or word (c) not= i or word (c) not= "u" then
            put word (c) ..
        end if
    end for
end novowels

function get_name : string
   var name : string
   get name
   result name
end get_name

function backwards_string (word : string) : string
   var resulting_string := ""
   for decreasing character_index : length (word) .. 1
      resulting_string += word (character_index)
   end for
   result resulting_string
end backwards_string

function is_vowel (letter : string) : boolean
   var vowels : array 1..5 of string := init("a", "e", "i", "o", "u")
   for vowel_index : 1 .. 5
      if letter = vowels (vowel_index) then
         result true
      end if
   end for
   result false
end is_vowel

function strip_vowels (text : string) : string
   var resulting_string : string := ""
   for character_index : 1 .. length (text)
      if not is_vowel (text (character_index)) then
         resulting_string += text (character_index)
      end if
   end for
   result resulting_string
end strip_vowels