program exm_1;
uses crt;
var
x: string;
i,k: integer;
begin
clrscr;
write ('x:=');
readln(x);
k:=0;
for i:=1 to length (x) do
if x[i]='а' then k:=k+1;
write(' в заданной строке', k,'символов');
end.