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

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