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.
|  Envcount.PAS | 
| Language:    {Envcount.PAS} uses Dos;   var I: Integer; | |
| 
      Код для вставки:
        ::  ::  ::
      ГОСТ ::   
      Поделиться: 
       
      | 
|   |