помогите решить с 17 задачи

программа на Паскале:var a,b,i,sum,proiz: integer;beginwriteln("vvedite a,b");read(a,b);proiz:=a*b;sum:=0;for i:=1 to proiz dobeginif (i mod 2=0) then sum:=sum+i;end;writeln("summa= ",sum);end.