пожалуйста помогите (Паскаль)

Var
  n,k:integer;
begin
  Writeln('Вводите естественные числа, 0 - окончание ввода');
  k:=0;
  repeat
    Read(n);
    if nlt;gt;0 then
      if (n mod 7 = 0) and (n mod 2 =0) then Inc(k)
  until n=0;
  Writeln('Количество чисел, кратных 7: ',k)
end.

Тестовое решение:
Вводите естественные числа, 0 - окончание ввода
3242 533 49 756 36 847 753 112 0
Количество чисел, кратных 7: 2