Phan tich thua so nguyen to pascal

uses crt;
var res: array of array[1..2] of int64;
    n: int64;
procedure newFactor(n: int64);
begin
    setLength(res, length(res) + 1);
    res[length(res) - 1][1] := n;
    res[length(res) - 1][2] := 0;
end;
procedure insertIfNotExists(n: int64);
var i: longint;
begin
    for i := 0 to length(res) - 1 do
        if res[i][1] = n then begin
            inc(res[i][2]);
            exit;
        end;
    newFactor(n);
    res[length(res) - 1][2] := 1;
end;
procedure phanTich;
var i: int64;
begin
    if n mod 2 = 0 then newFactor(2);
    while n mod 2 = 0 do
    begin
        inc(res[length(res) - 1][2]);
        n := n div 2;
    end;
    i := 3;
    while i <= sqrt(n) do
    begin
        if n mod i = 0 then newFactor(i);
        while n mod i = 0 do
        begin
            inc(res[length(res) - 1][2]);
            n := n div i;
        end;
        i := i + 2;
    end;
    if n > 2 then insertIfNotExists(n);
end;
var i: longint;
begin
    readln(n);
    phanTich;
    for i := 0 to length(res) - 1 do writeln(res[i][1],' ',res[i][2]);
end.