Procedure Facteurs Premiers (Table)

Type
  tab = Array [1..50] Of Integer;

Procedure facpremier (Var t:tab;n:Integer;Var j:Integer);
Var
  i: Integer;
  ch: String;
  x: String;
Begin
  i := 2;
  j := 1;
  Repeat
    If n Mod i = 0 Then
      Begin
        t[j] := i;
        j := j+1;
        n := n Div i;
      End
    Else
      i := i+1;
  Until n=1;
  j := j-1;
End;