1) Произведение 100 членов натурального числа, которые имеют нечетные номера.
2) Сумма квадратов всех четных чисел от 2 до 20
Помогите пожалуйста

здесь ошибка. надо квадраты prod:=prod+i*i;

исправил

var i:byte;    prod:real;    begin  prod:=1;  for i:=3 to 100 do    if odd(i) then      prod:=prod*i;  writeln('1). Произведение первых 100 нечетных натуральных чисел');  writeln(prod);  writeln();    prod:=0;  for i:=2 to 20 do    if not odd(i) then      prod:=prod + i * i;  writeln('2). Сумма квадратов всех четных чисел от 2 до 20');  writeln(prod);  writeln();end.