Envcount.PAS

Language:
Русский
English

  {Envcount.PAS}
  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
  {Sample code for the EnvCount function.}

  uses Dos;

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

Тэги:
| G+
Код для вставки: :: :: :: ::
Поделиться: // //