Пожалуйста посчитайте с написанием программы

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