Вводится последовательность чисел, признак конца ввода, ввод числа 0.
Найти сумму чисел не кратных 7.
SOS

Program n1;var sum,a: integer;beginsum:=0;while true dobeginreadln(a);if(a mod 7<>0) then sum:=sum+a;if(a=0) then break;end;writeln(sum);end.