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


Program ex19;

Uses dos;

Var I : Integer;

BEGIN
     For I := 1 To EnvCount Do WriteLn(EnvStr(I));
END.