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