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