{ Кол-во букв "а" в тексте. }

uses crt;
var d   : string[30];
    n,i : integer;
begin
  write('наберите текст  ');
  readln(d);
  n:=0;
  for i:=1 to length(d) do

  if d[i]='а' then n:=n+1;
  write('В тексте а=',n);
  readln;
end.