Нужно написать на Паскале=))
Дан набор слов, разделенных точкой с запятой (;), который заканчивается двоеточием (:). Определить, сколько в нем слов, заканчивающихся буквой «а»

var s : string;  i, k : integer;Begin  read(s);  for i:=1 to length(s)-1 do    if (s[i] = 'а') and ((s[i + 1] = ';') or (s[i + 1] = ':')) then       k := k + 1;  write(k);End.