Язык:
Русский
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.
|
Код для вставки:
::
::
::
ГОСТ ::
Поделиться:
|
|