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

var
dp:pdir;
begin
dp := opendir ('/tmp/dir1');
if dp = nil then
begin
writeln('пЫЙВЛБ ПФЛТЩФЙС ЛБФБМПЗБ /tmp/dir1');
halt(1);
end;
(*
лПД, ТБВПФБАЭЙК У ЛБФБМПЗПН
.
.
.
*)
closedir (dp);
end.
Соседние файлы в папке 4