tính tích các số chia hết cho 2 nhưng không chia hết cho 4 trong phạm vi từ 1 đến 50 viết chương trình pascal Xác định biến rẽ nhánh ,lặp

program ct;

uses crt;

var s,i:longint;

begin

s:=1;

for i:=1 to 50 do if (i mod 2=0) and (i mod 4<>0) then s:=s*i;

write('S= ',s);

readln

end.

   _ i vừa là biến rẽ nhánh vừa là biến lặp 

GOOD LUCK =))

program tinhtich;

uses      crt;

var        s,i : longint;

begin

            clrscr;

            s:=1;

            for i:=1 to 50 do if (i mod 2=0) and (i mod 4<>0) then s:=s*i;

            writeln('s= ',s);

            readln

            end;

end.

     i là biến rẽ nhánh và cũng là biến lặp