Решите по информатике! ! ! 1. вычислить произведение нечетных чисел от 40 до 160 2. вычислить сумму чисел делящихся на 150 от 1500 до 3000 3.определить кол-во чисел делящихся на 17 от 2510 до 7000 решение подробное. по паскалю.

1. k:=1;
for i:=40 to 160 do
if i mod 2 <>0 then k:=k*i;
write(k);
end.
2. k:=0;
for i:=1500 to 3000 do
if i mod 150=0 then k:=k+i;
write(k);
end.
3.k:=0;
for i:=2510 to 7000 do
if i mod 17=0 then k:=k+1;
write(k);
end.

начало всех программ будет одинаковое:
Program abc;
var i,k:integer;
begin