Даны естественное число n, знаки s1,...sn. , группы символов, разделённые пробелами

program zz1;

var s:string; // задаем переменную строкового типа

i, k, n, p:integer;  // задаем переменную целого типа

begin

write( введите n );

readln(n);  // вводим с клавиатуры данное число n

write( введите n символов );

read(s);  // вводим с клавиатуры строчку

for i:=1 to n do  // организуем цикл, в котором переберем все знаки от первого до заключительного

if s[i] = then k:=i; // обретаем заключительный пробел и запоминаем его номер

for i:=k to n do

if s[i] = a then p:=p+1;

write( количество букв a в заключительном слове данной последовательности = , p);

end.