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

Question

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

Answer 1

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.