УРОК 28-29 ОКТЯБРЯ

 //ФАМ
//Даны строка S и символы А и В. Написать программу, определяющую, какой символ – А или В – встречается чаще
var s:string;
      k ,i,ka,kb:integer;
begin
   read(s);
   ka:=0;
   kb:=0;
for i:= 1 to length(s)
 do if s[i]='A'
  then ka:=ka+1;
 
for i:= 1 to length(s)
 do if s[i]='B'
  then kb:=kb+1;
  if ka> kb THEN write('a,ЧАЩЕ',ka)
            ELSE write('B,ЧАЩЕ',kb);
 
 
end.