M3TILE - LATGACH3
Tác giả: ladpro98
Ngôn ngữ: Pascal
program m3tile;
var n,i:longint;
f:array[0..33] of longint;
begin
f[0]:=1;
f[2]:=3;
for i:=3 to 30 do
if odd(i) then f[i]:=0
else f[i]:=4*f[i-2]-f[i-4];
readln(n);
while n<>-1 do
begin
writeln(f[n]);
readln(n);
end;
end.