Submission #1972755

---

Source Code Expand

var
  i,j,n,a,b,r:integer;
begin
  read(n);
  r:=0;
  for i:=1 to n do
  begin
    read(a);
    b:=0;
    while (a mod 2 = 0) or (a mod 3 = 2) do
    begin
      a:=a-1;
      b:=b+1;
    end;
    r:=r+b;
  end;
  writeln(r);
end.

Submission Info

Compile Error

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

Judge Result