Склавиатуры вводятся числа,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.