#13
Напиши программу, которая определяет, сколько раз встречается буква ’A’ в слове, которое введет пользователь.

#14
Напиши программу, которая определяет, имеются ли в слове два соседствующих одинаковых символа.

#13
Вот крч только это убого насамом деле,просто я забыо как через цикл делать но если ты вспомнишь,то красавчик,и да там определяет только большие А и только английские )
program q;
var
a:string;
t,b:integer;
begin

readln(a);

b:=0;

if a[1]= 'A' then t:=b+1
else t:=0;
if a[2]= 'A' then t:=t+1
else t:=t;
if a[3]= 'A' then t:=t+1
else t:=t;
if a[4]= 'A' then t:=t+1
else t:=t;
if a[5]= 'A' then t:=t+1
else t:=t;
if a[6]= 'A' then t:=t+1
else t:=t;
if a[7]= 'A' then t:=t+1
else t:=t;
if a[8]= 'A' then t:=t+1
else t:=t;
if a[9]= 'A' then t:=t+1
else t:=t;
if a[10]= 'A' then t:=t+1
else t:=t;
if a[11]= 'A' then t:=t+1
else t:=t;
if a[12]= 'A' then t:=t+1
else t:=t;
write(t);
end.