Составьте программу подсчета общего количества русских и латинских букв «а» и…

Program Task; Var s: String; i, r: Integer; BeginWriteLn ('Введите строку: '); ReadLn (s); For i: =1 To Length (s) DoIf (s[i]='a') Or (s[i]='A') Or (s[i]='а') Or (s[i]='А') Thenr: =r+1; WriteLn ('Результат: ', r); ReadLn; End.