Нужно сделать блок-схему, алгоритм и написать программу qbasic - найти произведение однозначных положительных цифр. (это циклический алгоритм) цифры - 1,2,

Var a,b,i,c,:longint;
begin
read(a);
c:=1;
for i:=1 to a do begin
read(b);
if b<10 and b>0 then s:=c*b;
end;
write(c);
end.