Solução em Pascal do Problema 6

program fatorar;

var n, nat, multi : Integer;

begin
 readLn(n);
 nat:=2;
 while n>1 do 
  begin
   multi:=0;
   while n mod nat =0 do
    begin
     multi:=multi+1;
     n:=n div nat
   end;
   if multi<>0
    then writeLn(nat, multi);
   nat:=nat+1
 end
end.