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

//pascalabc.net //версия 3.3, сборка 1627 begin write(readseqintegerwhile(x-> x< > 0).where(t-> t=7).; end.

Program n1; uses crt; var s,i: integer; begin clrscr; writeln('введите последовательность. для остановки введите 0 '); repeat readln(i); if (i mod 7=0)or(i mod 10=0) then s: =s+i; until i=0; writeln('сумма =',s); readln end.