Ответ: А где проверка на четность?

Ответ: Да и для отрицательных чисел не сработает

Ответ: Упс… Сейчас поправлю…

Ответ: var a,k:integer;beginwrite(‘Введите число: ‘);readln (a);while a <> 0 dobeginif (abs(a mod 2) = 0) and (abs(a mod 7) = 0) then k:=k+1;write(‘Введите число: ‘);readln (a)end;writeln(‘Количество чётных чисел кратных 7 равно: ‘,k)end.

Ответ: PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018Внимание! Если программа не работает, обновите версию!begin  ReadSeqIntegerWhile(t->t<>0).Where(t->Abs(t) mod 14=0).Count.Printlnend.Пример32 28 -100 49 -14 52 02