Последовательно вводятся целые положительные числа, пока не будет введено отрицательное число.определить разность между суммой чисел кратных семи и количеством четных чисел. program dz; var s,k,n,a: integer; begin k: =0; n: =0; while a> =0 do begin writeln('текущее число'); readln(a); if a mod 7=0 then k: =k+a; if a mod 2=0 then n: =n+1; s: =k-n; end; writeln('сумма чисел кратных 7=',n); writeln('количество четных чисел',n); writeln('разность суммы и количества',s); end. найти ошибку ,неправильно выводит сумму чисел кратных семи и разность