uses Dos;

var I: Integer;
begin
  writeln;
  for I := 1 to EnvCount do
     Writeln(EnvStr(I));
     readln;
end.