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

  • 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.