program wend;

var s,l: string;
    c: char;
    i, n: integer;

begin
  c:='є';
  n := 0;
  writeln('Вводи строку:');
  readln(l);
  s:=LowerCase(l);
  s := s + ' ';
  for i := 1 to length(s) - 1 do
  if (s[i] = c) and (s[i + 1] = ' ')  then
  n := n + 1;
  writeln('Слов которые оканчиваются на є/Є:' ,n);
end.