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

(* рТПЗТБННБ spawn - ДЕНПОУФТБГЙС ЧЩЪПЧБ fork *)
uses linux;

var
pid:longint; (* process-id Ч ТПДЙФЕМШУЛПН РТПГЕУУЕ *)
begin
writeln ('рПЛБ ЧУЕЗП ПДЙО РТПГЕУУ');
writeln ('чЩЪПЧ fork...');

pid := fork; (* УПЪДБОЙЕ ОПЧПЗП РТПГЕУУБ *)

if pid = 0 then
writeln ('дПЮЕТОЙК РТПГЕУУ')
else if (pid > 0) then
writeln ('тПДЙФЕМШУЛЙК РТПГЕУУ, pid РПФПНЛБ ', pid)
else
writeln ('пЫЙВЛБ ЧЩЪПЧБ fork, РПФПНПЛ ОЕ УПЪДБО');
end.