напишите программу, которая в последовательности натуральных чисел вычисляет сумму всех чисел кратных 7 и оканчивающихся на 0. Программа получает на вход натуральные числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0- признак окончания ввода, не входит в последовательность), Количество чисел не превышает 1000. Введенные числа не превышают 30000. Программа должна вывести одно число: сумму всех чисел, кратных 7 и оканчивающихся на 0. Программу надо написать в Pascal

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.