Submission #3329077

---

Source Code Expand

var
 ch:char;
 a,k,i,h,b,r:longint;
begin
 while not eoln do
  begin
   read(ch);
   case ch of
    'A':inc(a);
    'K':inc(k);
    'I':inc(i);
    'H':inc(h);
    'B':inc(b);
    'R':inc(r);
    else begin writeln('NO');halt;end;
   end;
  end;
  if (k=1) and (i=1) and (h=1) and (b=1) and (r=1) and (a<=4) then writeln('YES') else writeln('NO');
end.

Submission Info

Compile Error

/usr/bin/ld.bfd: warning: ./link.res contains output sections; did you forget -T?

Judge Result