DECOMPOSITION EN FACTEUR DE NOMBRES PREMIERS

program decomposition;
var n,m,i:longint;
     k:shortint;
begin
  repeat 
  write(' Entrez un nombre entier supérieur à 2 (0/fin) : ');
  readln(n);
  if n>=2 then 
  begin
  m:=n;
  i:=2;
  k:=0;
  write('la décomposition de ',n,' est : ');
  while i <= sqrt(m) do
      if m mod i >0 then i:=i+1                     
                        else
                          begin
                           while m mod i =0 do 
                               begin
                                 k:=k+1;
                                 m:=m div i
                               end;
                           write('(',i,'^',k,')');
                           k:=0;
                           i:=i+1
                          end;
   if m <>1 then write('(',m,'^1)')
   end
     else write('WARNING!! LE NOMBRE DIOT ÊTRE >= A 2');
     writeln;    
     until n=0; 
end.