Найдите произведение всех однозначных чисел среди 8 введенных.Паскаль

Question

Найдите произведение всех однозначных чисел среди 8 введенных.Паскаль

Answer 1

var

i,k, p: integer;

begin

p:=1;

for i:=1 to 8 do

begin

Readln (k);

if k div 10 = 0 then p:=p*k

end;

writeln (p);

end.