Var
    A, P : Array [0 .. 31] Of LongInt;
    N : LongInt;

Procedure Factorize(X : LongInt; Var P : Array Of LongInt; Var A : Array Of LongInt; Var N : LongInt);
Var
    I, Cnt : LongInt;
Begin
    I := 2;
    N := 0;
    While I * I <= X Do
    Begin
        Cnt := 0;
        While X Mod I = 0 Do
        Begin
            Inc(Cnt);
            X := X Div I;
        End;
        If Cnt > 0 Then
        Begin
            Inc(N);
            P[N] := I;
            A[N] := Cnt;
        End;
        Inc(I);
    End;
    If X <> 1 Then
    Begin
        Inc(N);
        P[N] := X;
        A[N] := 1;
    End;
End;

Begin
    Factorize(120, P, A, N);
    For N := 1 To N Do
    Begin
        WriteLn(P[N], ' ', A[N]);
    End;
End.