Задача про плитки

{$N+}
const magic: array [1..3, 1..3] of byte =
((1, 2, 4),
(2, 8, 16),
(4, 16, 32));
var n,i,j,k,l,code: longint;
can: array [1..3, 1..3] of boolean;
total: array [0..1, 1..3, 0..63] of extended;
answer: extended;
procedure readdata;
var s: string;
i, j: byte;
begin
readln(n);
fillchar(can, sizeof(can), false);
for i := 1 to 3 do
begin
readln(s);
for j := 1 to 3 do
if upcase(s[j]) = 'Y' then
begin
can[i, j] := true;
can[i, j] := true
end
end
end;
procedure findcode;
var i, j: byte;
begin
{переводим диаграмму смежности в число}
code := 0;
for i := 1 to 3 do
for j := i to 3 do
if can[i, j] then
code := code + magic[i, j]
end;
begin
assign(input, 'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);
readdata;
findcode;
fillchar(total, sizeof(total), 0);
{количество полосок длины 1}
for i := 1 to 3 do
total[1, i, 0] := 1;
for i := 2 to n do
for j := 0 to 63 do
for k := 1 to 3 do
{cчитаем полоски длины i, c диаграммой смежности j и оканчивающиеся цветом k}
begin
total[i mod 2, k, j] := 0;
for l := 1 to 3 do
{цикл по конечному цвету полосок длины i - 1}
if magic[k, l] and j <> 0 then
{цвета l и k могут соседствовать согласно диаграмме смежности j}
begin
total[i mod 2, k, j] := total[i mod 2, k, j] + total[1 - i mod 2, l, j];
total[i mod 2, k, j] := total[i mod 2, k, j] + total[1 - i mod 2, l, j - magic[k, l]]:end
end;
answer := 0;
{суммируем количество полосок с диаграммой смежности code и различными окончаниями}
for i:=1 to 3 do
answer:=answer + total[n mod 2, i, code];writeln(answer:0:0)
end.

const magic: array [1..3, 1..3] of byte =((1, 2, 4),
                                          (2, 8, 16),
                                          (4, 16, 32));
var n,code: longint;
    can: array [1..3, 1..3] of boolean;
    total: array [0..1, 1..3, 0..63] of real;
    answer: real;
procedure readdata;
var s: string;
    i, j: byte;
begin
readln(n);
for i:=1 to 3 do
for j:=1 to 3 do
can[i,j]:=false;
for i := 1 to 3 do
 begin
  readln(s);
  for j := 1 to 3 do
  if upcase(s[j]) = 'Y' then
   begin
    can[i, j] := true;  //зачем раза??
    can[i, j] := true
  end
 end
end;
procedure findcode;
var i, j: byte;
begin
{переводим диаграмму смежности в число}
code := 0;
for i := 1 to 3 do
for j := i to 3 do
if can[i, j] then
code := code + magic[i, j]
end;
var i,j,k,l:integer;
begin
readdata;
findcode;
for i:=0 to 1 do
for j:=1 to 3 do
for k:=0 to 63 do
total[i,j,k]:=0;
{количество полосок длины 1}
for i := 1 to 3 do
total[1, i, 0] := 1;
for i := 2 to n do
for j := 0 to 63 do
for k := 1 to 3 do
 {cчитаем полоски длины i, c диаграммой смежности j и оканчивающиеся цветом k}
 begin
  total[i mod 2, k, j] := 0;
  for l := 1 to 3 do
  {цикл по конечному цвету полосок длины i - 1}
  if magic[k, l] and j <> 0 then
  {цвета l и k могут соседствовать согласно диаграмме смежности j}
   begin
    total[i mod 2, k, j] := total[i mod 2, k, j] + total[1 - i mod 2, l, j];
    total[i mod 2, k, j] := total[i mod 2, k, j] + total[1 - i mod 2, l, j - magic[k, l]]
  end;
 end;
answer := 0;
{суммируем количество полосок с диаграммой смежности code и различными окончаниями}
for i:=1 to 3 do
answer:=answer + total[n mod 2, i, code];writeln(answer:0:0)
end.