Склавиатуры вводится строка. с новой строки вводится буква. составьте программу подсчета количества заданных букв в заданной строке. определить, является ли длина введенного слова числом, кратным трем. определить, заканчивается ли введенное слово гласной буквой.

Var
  s : string;
  c : char;
  i, a : integer;
begin
  readln (s);
  read (c);  
a := 0;
  for i := 1 to length(s) do if s[i] = c then a := a + 1;
  write (a);
end.

var
  s : string;
begin
  readln (s);
    if length (s) mod 3 = 0  then write ('YES') else write ('NO');
end.

var
  s : string;
begin
  readln (s);
    if s[length (s)] in ['а', 'о',тут через запятую гласные]  then write ('YES') else write ('NO');
end.