Перевод с PascalABC.net на C++

program zadanie;
uses crt;
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;
  filein,fileout:string;
procedure readdata;
var
  s: string;
begin
  readln(n);
  for var u := 1 to 3 do
  begin
    readln(s);
    for var p := 1 to 3 do
      if upcase(s[p]) = 'Y' then
      begin
        can[u, p] := true;
        can[u, p] := true
      end
  end
end;
procedure findcode;
begin
  code := 0;
  for var u := 1 to 3 do
    for var p := u to 3 do
      if can[u, p] then
        code := code + magic[u, p]
end;
begin
  clrscr;
  writeln('Введите путь, откуда будут браться данные:');
  readln(filein);
  writeln('Введите путь, куда будут сохраняться данные:');
  readln(fileout);
  writeln('Данные записаны в ведённый Вами файл!');
  assign(input,filein);
  assign(output,fileout);
  readdata;
  findcode;
  for var u := 1 to 3 do
    total[1, u, 0] := 1;
  for var u := 2 to n do
    for var p := 0 to 63 do
      for var k := 1 to 3 do
      begin
        total[u mod 2, k, p] := 0;
        for var l := 1 to 3 do
          if magic[k, l] and p <> 0 then
          begin
            total[u mod 2, k, p] :=
            total[u mod 2, k, p] +
                        total[1 - u mod 2, l, p];
            total[u mod 2, k, p] :=
            total[u mod 2, k, p] +
                        total[1 - u mod 2, l, p - magic[k, l]]
          end
      end;
  answer := 0;
  for var u := 1 to 3 do
    answer := answer + total[n mod 2, u, code];
  writeln(answer:0:0);
end.