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

(* рТПЗТБННБ runls3 -- ЧЩРПМОЙФШ ls ЛБЛ УХВРТПГЕУУ *)
uses linux,stdio;

procedure fatal(s:pchar);
begin
perror(s);
halt(1);
end;


var
pid:longint;
begin
pid := fork;
case pid of
-1:
fatal ('пЫЙВЛБ ЧЩЪПЧБ fork');
0:
begin
(* рПФПНПЛ ЧЩЪЩЧБЕФ exec *)
execl('/bin/ls -l');
fatal('пЫЙВЛБ ЧЩЪПЧБ exec ');
end;
else
begin
(* тПДЙФЕМШУЛЙК РТПГЕУУ ЧЩЪЩЧБЕФ wait ДМС РТЙПУФБОПЧЛЙ
* ТБВПФЩ ДП ЪБЧЕТЫЕОЙС ДПЮЕТОЕЗП РТПГЕУУБ.
*)
wait(nil);
writeln('рТПЗТБННБ ls ЪБЧЕТЫЙМБУШ');
halt(0);
end;
end;
end.