var nimi: string;
i: integer;
olemas: boolean;
begin
 writeln('Sinu nimi? '); readln(nimi);
 olemas:=false;
 for i:=1 to length(nimi) do
     if nimi[i]='a' then olemas:=true;
 if olemas then writeln('Sinu nimes on a');
end.