For:

program ct;
uses crt;
var i,n,p:int64;
begin
    clrscr;
    writeln('Nhap N:');readln(n);
    p:=1;
    for i:=1 to n do 
        begin 
        if (i mod 2) = 0 then p:=p*i;
        end;
    writeln('1*2*...*N = ',p);
end.

While:

program ct;
uses crt;
var i,n,p:int64;
begin
    clrscr;
    writeln('Nhap N:');readln(n);
    p:=1; i:=0;
    while i<n do
        begin
        i:=i+1;
        if (i mod 2) = 0 then p:=p*i;
        end;
    writeln('1*2*...*',N,' = ',p);
end.

_______________________

#Duahauvn

#include<iostream>

using namespace std;

int main(){

int P=1,n;

cin>>n;

for(int i=1;i<=n;i++){

if(i%2==0){

P*=i;

}

}

cout<<P;

}