С клавиатуры вводят слово. Составьте программу, которая определяет позицию буквы "е" в слове

var  s:string;  i:integer;begin  Write('->'); Readln(s);  for i:=1 to s.Length do    if s[i]='е' then Write(i,' ')end.Пример->зеленодлинношеее2 4 14 15 16