Brouillon #2

Program bac;
Uses Wincrt;
function puis (a,b:integer):integer;
var
i,x:integer;
Begin
x:=a;
for i:=1 to b-1 Do
    a:=a*x;
puis:=a;
end;
function calcul (ch:string):integer;
Var
s,a,b,e:integer;
Begin
    s:=1;
    ch:=ch+'*';
    Repeat
        val (copy(ch,1,pos('_',ch)-1),a,e);
        val (copy(ch,pos('_',ch)+1,pos('*',ch)-pos('_',ch)-1),b,e);
        s:=s*puis(a,b);
        delete (ch,1,pos('*',ch));
    Until (ch='');
    calcul:=s;
end;
Function repet (c:Char;ch:String): String;
Var
  i,s: Integer;
Begin
  s := 0;
  For i:=1 To Length(ch) Do
    If ch[i]=c Then
      s := s+1;
  Str (s,ch);
  repet := ch;
End;

Function facteur (a:Integer): String;
Var
  i,e,x: Integer;
  ch,ch1: String;
Begin
  i := 1;
  ch1 := '';
  Repeat
    i := i+1;
    If a Mod i =0 Then
      Begin
        a := a Div i;
        Str(i,ch);
        ch1 := ch1+ch+'*';
        i := 1;
      End;
  Until (a Div i=0);
  ch := '';
  Repeat
    ch := ch+ch1[1]+'_'+repet(ch1[1],ch1)+'*';
    Val (repet(ch1[1],ch1),x,e);
    Delete (ch1,1,x*2);
  Until (ch1='');
  Delete (ch,Length(ch),1);
  facteur := ch;
End;
Begin
  writeln (calcul(facteur (168)));
End.