Bac 2009

Program bac2009;
Uses Wincrt;
Var
  f: Text;
  p,q: Longint;
Procedure creation (Var f:Text);
Begin
  Assign (f,'C:\bac\decomp.txt');
End;

Procedure saisie (Var p,q:Longint);
Begin
  Repeat
    Writeln ('Saisir p :');
    Readln (p);
    Writeln ('Saisir q :');
    Readln (q);
  Until (10<p) And (p<q) And (q<100000);
End;
function facpr (i:longint):string;
Var
 j:longint;
 ch,x:string;
Begin
    j:=2;
    ch:='';
    Repeat
        if i mod j = 0 Then
            Begin
                i:=i div j;
                str (j,x);
                ch:=ch+x+'.';
                j:=2;
            end
            else j:=j+1;
    until i=1;
    delete (ch,Length(ch),1);
    facpr:=ch;

end;
Procedure traitment (Var f:Text;p,q:Longint);
Var
i:longint;
ch:string;
Begin
    rewrite (f);
    writeln (f,p,' ',q);
    For i:=p To q Do
    Begin
        ch:=facpr(i);
        writeln (f,i,'=',ch);
        End;
        close (f);
End;

Procedure affiche (Var f:Text);
Var
  ch: String;
Begin
  Reset (f);
  While Not (Eof(f)) Do
    Begin
      Readln (f,ch);
      Writeln (ch);
    End;
  Close (f);
End;
Begin
  creation (f);
  saisie (p,q);
    traitment (f,p,q);
    affiche (f);
End.