Язык: 
Русский
English
{ Пример программы для функции EnvCount }
uses Dos;
var
I : Integer;
begin
for I := 1 to EnvCount do
WriteLn(EnvStr(I));
end.
var
I : Integer;
begin
for I := 1 to EnvCount do
WriteLn(EnvStr(I));
end.
| 
     
      Код для вставки:
       
       ::
        ::
        ::
      ГОСТ ::
       
     
      Поделиться: 
       
      
     | 
 
  |