Скачиваний:
18
Добавлен:
08.01.2014
Размер:
468 б
Скачать
uses linux;

const
PERMS=0644; (* РТБЧБ ДПУФХРБ РТЙ ПФЛТЩФЙЙ У Open_CREAT *)
filename='newfile';

var
filedes:integer;

begin
filedes := fdopen (filename, Open_RDWR or Open_CREAT, octal(PERMS));
if filedes = -1 then
begin
writeln('оЕ НПЗХ УПЪДБФШ ', filename);
halt(1); (* ЧЩИПД РП ПЫЙВЛЕ *)
end;

writeln('жБКМ ', filename, ' ХУРЕЫОП УПЪДБО (ПФЛТЩФ ДМС ЪБРЙУЙ), ДЕУЛТЙРФПТ ТБЧЕО ',filedes);

(* пУФБМШОБС РТПЗТБННБ *)

halt(0);
end.
Соседние файлы в папке 2