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

// PascalABC.NET 3.0, сборка 1150 от 22.01.2016 var   n,k,nmax:integer; begin   nmax:=-1;   repeat     Read(n);     if n<>0 then begin       if n mod 7 = 0 then begin         if n>nmax then begin k:=1; nmax:=n end         else           if n=nmax then Inc(k)         end       end   until n=0;   Writeln('Число ',nmax,' встретилось ',k,' раз(а)') end. Тестовое решение: 8 11 5 7 4 23 14 82 51 14 23 17 0 Число 14 встретилось 2 раз(а)