facteurs_premiers

program test_facteurs_premiers;
uses wincrt;
var
N,i:integer;
puiss:integer;
v:Boolean;

begin
    write('N=');
    readln(N);
    for i:= 2 to N do
    begin
        puiss:=0;
        while ( n mod i = 0 ) do
        begin
                puiss:=puiss+1;
                n:= n div i;
        end;
        writeln(i,'^' , puiss);
        if n div i = 0 then break;
    end;
end.