这是我的程序代码：

var

  s:string;

  k,i,a,l,ans:longint;

begin

  while not eof do begin

  readln(s);

  l:=length(s);

  for i:=1 to l do

   begin

     val(s[i],k,a);

     ans:=ans+k;

   end;

  if ans mod 3=0 then writeln('yes')

  else writeln('no');

  end;

end. 

报错：WA（line2）

您的答案是：no

正确答案是：yes

我在pascal里测试过的，没有错误啊

请大家帮忙找一下错误的地方。谢谢！