найти произведение чисел кратных 2 от 1 до н

паскаль

program f;uses crt;var pr,f,n:integer;f:=1;pr:=1;readln(n);while f<=n dobeginpr:=pr*f;f:=f+2;end;writeln(pr);

6 наверное или 8.........

тебе где это нужно выполнить? язык?