Решить задачи по информатике

Question

Решить задачи по информатике

---

Answer 1

Var
a:integer;
p:real;
   begin
      p:=1;
       repeat
           readln(a);
               if (a>=-10)and(a<=10) then<br>                  p:=p*a;
        until (a<-10)or(a>10);
writeln(p:4:0);
end.