var a,k:integer;
begin
write('Введите число: ');
readln (a);
while a <> 0 do
begin
if (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.Println
end.

Пример
32 28 -100 49 -14 52 0
2