Даны два файла, в первый записан на одной строчке количество (натуральное от 1 до 100000) цифр в следующей строчке, написанных через пробел. Каждое число этой, второй строчки может быть 0, 1 или 3. Необходимо в файл (допустим, output.out) вывести через пробел количество троек, единиц и нулей — Delphi(Делфи)

program domino;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
   F:array[0..33] of int64;
   bin,bout:text;
   i:integer;
      begin
assign(bin,'domino.in');reset(bin);
assign(bout,'domino.out');rewrite(bout);
 
F[0]:=1;
F[1]:=1;
 
for i:=2 to 30 do F[i]:=F[i-1] + F[i-2];
F[0]:=1;
F[1]:=1;
read(bin,i);
writeln (bout, F[i]);
close(bin);close(bout);
end.