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

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.