Плиззззз)))) срочно надо !!!!!

var   a, s, i: integer; begin   s := 0; a := 1; i := 0;  while a <> 0 do   begin     readln(a);     if (a mod 17 = 0) then     begin       s := s + a;       inc(i);     end;    end;   if s <> 0 then print(s, i-1)  else write('NO'); end.