С клавиатуры вводятся числа,0-конец ввода найти сумму кратных 3 и оканчивающихся на 7 Срочно плезз

Program n1; var sum,a: integer; begin readln(a); sum:=0; while a<>0 do begin if (a mod 3=0) and (a mod 10=7) then sum:=sum+a; readln(a); end; write(sum); end.