Дана последовательность натуральных чисел, завершающаяся числом 0. Определите, сколько в последовательности чисел 7.
Пример:
Входные данные 1 7 7 9 1 0
Правильный ответ 2

Program n1;Uses CRT;Var s,i: integer;beginClrScr;Writeln('Введите последовательность. Для остановки введите 0 ');Repeatreadln(i);If (i mod 7=0)or(i mod 10=0) then s:=s+i;until i=0;writeln('Сумма =',s);readlnend.