Написать программу: "пользователь вводит целые числа. окончание последовательности – число 101. найти произведение однозначных чисел."

Var a,p:integer;
begin
p:=1;
Readln(a);
while a<>101 do
begin
if a div 10 = 0 then
p:=p*a;
readln(a)
end;
writeln(p)
end.