{************************************************
                 Hugo Eti‚vant
     http://www.multimania.com/cyberzoide/
      e-mail : cyberzoide@multimania.com
      (pour une aide en Turbo Pascal 7.0)
*************************************************}

Program exemple29c ;
Const Max = 10 ;
Type Tab2D = Array[1..Max,1..Max] Of Integer ;
     PMatrice = ^Tab2D ;
Var GogoGadgetAuTableau : PMatrice ;
    i, j, x : Integer ;
BEGIN
New(GogoGadgetAuTableau);
For i:=1 to Max Do
    Begin
    For j:=1 to Max Do GogoGadgetAuTableau^[i,j] := i+j ;
    End;
x := GogoGadgetAuTableau^[Max,Max] * Sqr(Max) ;
WriteLn(Cos(GogoGadgetAuTableau^[Max,Max])) ;
Dispose(GogoGadgetAuTableau);
END.