program prog_7;
VAR
 S:STRING;
 i,k,Na,Naf,p:Byte;
BEGIN
 Writeln('Enter Name, Patronymic and Surname, divided by single space,');
 Writeln('e.g. Ivan Petrovich Sidorov:');
 Writeln;
 ReadLn(S);
 Writeln;
 Na:=0;
 For i:=1 to Length(S) do
  if S[i]='a' then Inc(Na);
 Naf:=0;
 p:=0;
 k:=0;
 Repeat
  Inc(k);
  If (S[k]=' ') and (p=0) then p:=1;
 Until (S[k]=' ') and (p=1);
 For i:=k+1 to Length(S) do
  if S[i]='a' then Inc(Naf);
 Writeln('Text contains ',Na,' letters "a"');
 Writeln('Surname contains ',Naf,' letters "a"');
 ReadLn;
END.