Viết chương trình Nhập 1 số nguyên n bé hơn 20 in ra tích các số chẵn nguyên chẵn từ 1 đến n là

program oken;

uses crt;

type so= 0..20;

var    n:so;

         i:byte;

         tich:=longint;

begin

clrscr;

write('nhap n: '); readln(n);

for i:=1 to n do

   if i mod 2 = 0 then

        tich:=tich*i;

writeln('tich: ',tich);

readln;

end.

Program FNG;
Uses crt;
Var n,i,s: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        s:=1;
        For i:=1 to n do
                If i mod 2 = 0 then
                        s:=s*i;
        Write('S = ',s);
        Readln
End.