program L4D;

{$APPTYPE CONSOLE}

uses
   System.SysUtils;

type
   TDArray = array of Integer;

function CheckFileName(FileName: String): Boolean;
var Ans: Boolean;
   i: Integer;
begin
   Ans := True;
   i := 1;
   while (i <= Length(FileName)) And Ans do
   begin
      if (FileName[i] In ['\', '/', ':', '*', '?', '"', '<', '>', '|']) then
      begin
         Ans := False;
         Writeln('\/:*?"<>| are forbidden characters...');
      end;
      Inc(i);
   end;
   if Length(FileName) = 0 then
   begin
      Ans := False;
      Writeln('File name is empty');
   end;
   CheckFileName := Ans;
end;

function ReadInput(var B: Integer): Boolean;
var Option: Char;
   ErrorPos: Integer;
   FileName, RawInput: String;
   InFile: TextFile;
   KeepReadFileName, KeepReadCosole, StopReadB: Boolean;
begin
   Writeln('[1] Read data from file');
   Writeln('[2] Read data from console');
   Writeln('[~] Close');
   Readln(Option);
   case Option of
      '1':
      begin
         KeepReadFileName := True;
         while KeepReadFileName do
         begin
            Writeln('Enter file name: ');
            Readln(FileName);
            if (CheckFileName(FileName)) then
            begin
               AssignFile(InFile, FileName);
               if (FileExists(FileName)) then
               begin
                  KeepReadFileName := False;
                  Reset(InFile);
                  StopReadB := False;
                  repeat
                     Readln(InFile, RawInput);
                     Val(RawInput, B, ErrorPos);
                     if B > 0 then
                        StopReadB := True
                     else
                        Writeln('B must be greater than zero...');
                  until (ErrorPos = 0) And (StopReadB);
                  CloseFile(InFile);
                  ReadInput := True;
               end
               else
                  Writeln('No such file...');
            end;
         end;
      end;
      '2':
      begin
         KeepReadCosole := True;
         while KeepReadCosole do
         begin
            StopReadB := False;
            repeat
               Writeln('Enter number system base: ');
               Readln(RawInput);
               Val(RawInput, B, ErrorPos);
               if B > 0 then
                  StopReadB := True
               else
                  Writeln('B must be greater than zero...');
            until (ErrorPos = 0) And (StopReadB);
            KeepReadCosole := False;
         end;
         ReadInput := True;
      end;
   else
      ReadInput := False;
   end;
end;

procedure WriteInput(A: TDArray);
var Option: Char;
   ErrorPos, i: Integer;
   FileName, RawInput: String;
   OutFile: TextFile;
   KeepReadFileName, KeepReadOption: Boolean;
begin
   Writeln('[1] Write data to file');
   Writeln('[2] Write data to console');
   KeepReadOption := True;
   while KeepReadOption do
   begin
      Readln(Option);
      if (Option = '1') then
      begin
         KeepReadOption := False;
         KeepReadFileName := True;
         while KeepReadFileName do
         begin
            Writeln('Enter file name: ');
            Readln(FileName);
            if (CheckFileName(FileName)) then
               KeepReadFileName := False;
         end;
         AssignFile(OutFile, FileName);
         if (FileExists(FileName)) then
         begin
            KeepReadOption := True;
            Writeln('Do you want to clear file? [Y/N]: ');
            while KeepReadOption do
            begin
               Readln(Option);
               if (UpperCase(Option) = 'Y') then
               begin
                  Rewrite(OutFile);
                  KeepReadOption := False;
               end
               else
               if UpperCase(Option) = 'N' then
               begin
                  KeepReadOption := False;
                  Append(OutFile);
               end;
            end;
         end
         else
            Rewrite(OutFile);
         if A[0] = -1 then
            Writeln(OutFile, '-1')
         else
            for i := 0 to Length(A) - 1 do
               Writeln(OutFile, A[i]);
         Writeln('Done.');
         CloseFile(OutFile);
      end
      else
      if Option = '2' then
      begin
         KeepReadOption := False;
         if A[0] = -1 then
            Writeln('-1')
         else
            for i := 0 to Length(A) - 1 do
               Writeln(A[i]);
      end;
   end;
end;

procedure Main();
var
   B: Integer;
   DigitArray: TDArray;
   Close: Boolean;
begin
   while ReadInput(B) do
   begin
      try
         SetLength(DigitArray, B);
         if (B = 1) Or (B = 2) Or (B = 3) Or (B = 6) then
         begin
            DigitArray[0] := -1;
            WriteInput(DigitArray);
         end
         else
         if (B = 4) then
         begin
            DigitArray[0] := 2;
            DigitArray[1] := 1;
            DigitArray[2] := 0;
            DigitArray[3] := 1;
            WriteInput(DigitArray);
         end
         else
         if (B = 5) then
         begin
            DigitArray[0] := 1;
            DigitArray[1] := 2;
            DigitArray[2] := 0;
            DigitArray[3] := 0;
            DigitArray[4] := 2;
            WriteInput(DigitArray);
         end
         else
         begin
            DigitArray[0] := 2;
            DigitArray[1] := 1;
            DigitArray[B - 5] := 1;
            DigitArray[B - 1] := b - 4;
            WriteInput(DigitArray);
         end;
      except
         on EInOutError do
            Writeln('Input Error');
      end;
   end;
end;

begin
   Main;
end.