Вводится последовательность натуральных чисел. Ноль – при- знак конца. Подсчитай??е, сколько раз в этой последовательности встре- чается максимальное кратное семи число, и выдайте полученный ре- зультат

Var x, m, k: integer;begin m := 0; k := 0; read(x); while x <> 0 do   begin   if x mod 7 = 0 then     if x > m then       begin       m := x;       k := 1       end     else     if x = m then       k := k + 1;   read(x)   end; write(k)end.