Question

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

Answer 1

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.