program SerieBasica;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
n, i, num: Integer;
begin
Write('Ingrese el valor de N: ');
ReadLn(n);
num := 1;
for i := 1 to n do
begin
case i mod 4 of
1: num := num * 2;
2: num := num * 3;
3: num := num * 4;
0: num := num * 6;
end;
Write(num, ' ');
end;
ReadLn;
end.
cHJvZ3JhbSBTZXJpZUJhc2ljYTsKCnskQVBQVFlQRSBDT05TT0xFfQoKdXNlcwogIFN5c1V0aWxzOwoKdmFyCiAgbiwgaSwgbnVtOiBJbnRlZ2VyOwoKYmVnaW4KICBXcml0ZSgnSW5ncmVzZSBlbCB2YWxvciBkZSBOOiAnKTsKICBSZWFkTG4obik7CgogIG51bSA6PSAxOwoKICBmb3IgaSA6PSAxIHRvIG4gZG8KICBiZWdpbgogICAgY2FzZSBpIG1vZCA0IG9mCiAgICAgIDE6IG51bSA6PSBudW0gKiAyOwogICAgICAyOiBudW0gOj0gbnVtICogMzsKICAgICAgMzogbnVtIDo9IG51bSAqIDQ7CiAgICAgIDA6IG51bSA6PSBudW0gKiA2OwogICAgZW5kOwogICAgV3JpdGUobnVtLCAnICcpOwogIGVuZDsKCiAgUmVhZExuOwplbmQu