А. П. Полищук , С. А. Семериков - Системное программирование в UNIX средствами Free Pascal

количество процессов на одного пользователя'),
(name:_SC_SEM_NSEMS_MAX;value:'максимальная длина аргументов функций семейства exec'),
(name:_SC_SEM_VALUE_MAX;value:'максимальная длина аргументов функций семейства exec'),

(name:_SC_SIGQUEUE_MAX;value:'максимальная длина аргументов функций семейства exec'),
(name:_SC_TIMER_MAX;value:'максимальное количество процессов на одного пользователя'),
(name:_SC_BC_BASE_MAX;value:'максимальная длина аргументов функций семейства exec'),
(name:_SC_BC_DIM_MAX;value:'максимальная длина аргументов функций семейства exec'),

(name:_SC_BC_SCALE_MAX;value:'максимальная длина аргументов функций семейства exec'),
(name:_SC_BC_STRING_MAX;value:'максимальное количество процессов на одного пользователя'),
(name:_SC_COLL_WEIGHTS_MAX;value:'максимальная длина аргументов функций семейства exec'),
(name:_SC_EQUIV_CLASS_MAX;value:'максимальная длина аргументов функций семейства exec'),

(name:_SC_EXPR_NEST_MAX;value:'максимальная длина аргументов функций семейства exec'),
(name:_SC_LINE_MAX;value:'максимальное количество процессов на одного пользователя'),
(name:_SC_RE_DUP_MAX;value:'максимальная длина аргументов функций семейства exec'),
(name:_SC_CHARCLASS_NAME_MAX;value:'максимальная длина аргументов функций семейства exec'),

(name:_SC_2_VERSION;value:'максимальная длина аргументов функций семейства exec'),
(name:_SC_2_C_BIND;value:'максимальное количество процессов на одного пользователя'),
(name:_SC_2_C_DEV;value:'максимальная длина аргументов функций семейства exec'),
(name:_SC_2_FORT_DEV;value:'максимальная длина аргументов функций семейства exec'),

(name:_SC_2_FORT_RUN;value:'максимальная длина аргументов функций семейства exec'),
(name:_SC_2_SW_DEV;value:'максимальное количество процессов на одного пользователя'),
(name:_SC_2_LOCALEDEF;value:'максимальная длина аргументов функций семейства exec'),
(name:_SC_PII;value:'максимальная длина аргументов функций семейства exec'),

(name:_SC_PII_XTI;value:'максимальная длина аргументов функций семейства exec'),
(name:_SC_PII_SOCKET;value:'максимальное количество процессов на одного пользователя'),
(name:_SC_PII_INTERNET;value:'максимальная длина аргументов функций семейства exec'),
(name:_SC_PII_OSI;value:'максимальная длина аргументов функций семейства exec'),

(name:_SC_POLL;value:'максимальная длина аргументов функций семейства exec'),
(name:_SC_SELECT;value:'максимальное количество процессов на одного пользователя'),
(name:_SC_UIO_MAXIOV;value:'максимальная длина аргументов функций семейства exec'),
(name:_SC_IOV_MAX;value:'максимальная длина аргументов функций семейства exec'),

(name:_SC_PII_INTERNET_STREAM;value:'максимальная длина аргументов функций семейства exec'),
(name:_SC_PII_INTERNET_DGRAM;value:'максимальное количество процессов на одного пользователя'),
(name:_SC_PII_OSI_COTS;value:'максимальная длина аргументов функций семейства exec'),
(name:_SC_PII_OSI_CLTS;value:'максимальная длина аргументов функций семейства exec'),

(name:_SC_PII_OSI_M;value:'максимальная длина аргументов функций семейства exec'),
(name:_SC_T_IOV_MAX;value:'максимальное количество процессов на одного пользователя'),
(name:_SC_THREADS;value:'максимальная длина аргументов функций семейства exec'),
(name:;value:'максимальная длина аргументов функций семейства exec'),

(name:;value:'максимальная длина аргументов функций семейства exec'),
(name:;value:'максимальное количество процессов на одного пользователя'),
(name:;value:'максимальная длина аргументов функций семейства exec'),
(name:;value:'максимальная длина аргументов функций семейства exec'),

);

var
i:integer;
begin
for i:=1 to count do
writeln(mas[i].value,' = ',sysconf(mas[i].name));
end.

Упражнение 13.53. Напишите программу, печатающую свои параметры и значение первых десяти переменных окружения.
program Parameters;
uses Dos,Crt;
var
i:Byte;
begin
ClrScr;
if ParamCount>1 then
begin
Writeln('Owner parameters:');
For i:=1 to ParamCount do
Writeln(Paramstr(i));
end
else Writeln('No owner parameters.');
Writeln('System parameters:');
if envcount --">