Question

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

Answer 1

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