program Factor;

var
   int, iCount, outNum:integer;
   inF, outF : text;

function Fact2(num:integer):integer;
begin
     case num of
          2 : Fact2 := 0;
          3 : Fact2 := 0;
          4 : Fact2 := 2;
          5 : Fact2 := 0;
          6 : Fact2 := 2;
          7 : Fact2 := 0;
          8 : Fact2 := 3;
          9 : Fact2 := 2;
          10 : Fact2 := 2;
          11 : Fact2 := 0;
          12 : Fact2 := 3;
          13 : Fact2 := 0;
          14 : Fact2 := 2;
          15 : Fact2 := 2;
          16 : Fact2 := 4;
          17 : Fact2 := 0;
          18 : Fact2 := 3;
          19 : Fact2 := 0;
          20 : Fact2 := 3;
          21 : Fact2 := 2;
          22 : Fact2 := 2;
          23 : Fact2 := 0;
          24 : Fact2 := 4;
          25 : Fact2 := 2;
          26 : Fact2 := 2;
          27 : Fact2 := 4;
          28 : Fact2 := 3;
          29 : Fact2 := 0;
          30 : Fact2 := 3;
          31 : Fact2 := 0;
          32 : Fact2 := 5;
     end;
end;

begin
     assign(inF, 'DATA2.txt');
     reset(inF);
     assign(outF, 'OUT2.txt');
     rewrite(outF);
     for iCount:= 1 to 5 do begin
         readln(inF, int);
         outNum := Fact2(int);
         writeln(outF, outNum);
     end;
     close(inF);
     close(outF);
end.