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

Question

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

---

Answer 1

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.