1)найти сумму нечетных чисел на интервале [-30; 40]. 2) найти кол-во чисел на интервале [-50; 120], которые кратны 9. 3) найти произведение чисел кратных 11 на интервале [-10; 20]. 4) последовательно вводятся n чисел. найти их произведение.

1.)
var s, i: integer;
begin
for i:=-30 to 40 do
if i mod 2 <> 0 then s:=s+i;
writeln(s);
end.

2.)
var s, i: integer;
begin
for i:=-50 to 120 do
if i mod 9 = 0 then s:=s+1;
writeln(s);
end.

3.)
var p, i: integer;
begin
for i:=-10 to 20 do
begin
if i=1 then p:=1;
if i mod 11 = 0 then p:=p*i;
end;
writeln(p);
end.

4.)
var n, d, i, p: integer;
begin
p:=1;
write('Введите n>> ');
readln(n);
for i:=1 to n do
begin
write('Введите ', i, '-ое число>> ');
readln(d);
p:=p*d;
end;
writeln(p);
end.