Program dali;
uses wincrt;
type
tab = array [0..100] of integer;
var
n,i : integer;
u : tab;

Function puissance(a,b : integer) : integer;
    Var
        i : integer;
        p : integer;
Begin
    p := 1 ;
    for i := 1 to b Do
        p := P *a;

    puissance := p;
end;

function PGCD (a,b : integer) : integer;
Var
    r : integer;
Begin
    while ( b>0 ) Do
        Begin
                r := a mod b;
                a := b;
                b := r;
        end;
    PGCD  := a ;
end;

function PPCM( a,b : integer): integer;
Var
    n,m : integer;
Begin
    n:=a;
    m :=b;
    while(n<> m) Do
        Begin
            if ( n<m) then
            n := n +a
            Else
            m := m +b;
        end;
    PPCM := n;
end;

Procedure Suite( var U : tab; n : integer);
    var
        i : Integer;
    Begin
        U[0] := 1;
        for i := 1 to n Do
                    Begin
                                    {   writeln('ppcm (', U[i-1], ',' , i , '): ' ,PPCM(U[i-1],i) );
                                        writeln('pgcd (', U[i-1], ',' , i , '): ' , PGCD(i,U[i-1]));      }
                U[i] :=  ( ( PPCM(U[i-1],i) div 4 ) + PGCD(i,U[i-1])*i );
                end;
    end;

    Begin

                repeat
                    writeln(' NBRE DE TEERMES : ');
                    read(n);
                until n in [3..15];
                                writeln;
                suite(u,n);
                for i := 0 to n Do
                    write(U[i], ' , ');
    end.

    {                          La suite de lob est defnie comme suit :
    U0 = 1
    Un = ((PPCM(n-1,i) div 4) + PGCD(n-1,i) ) * n )

Ecrire un programme pascal qui permet de saisir le nombre de
termes n (  5<= n <= 15) de la suite U
et afficher les n premiers termers de U }