TOPIC:

How Get the current Process ID in linux

what is in CT similarly oldlinux.pp
{ Program to demonstrate the GetPid, GetPPid function. }

Uses oldlinux;
begin
Writeln ('Process Id = ',getpid,' Parent process Id = ',getppid);
end.

I found as soon as I asked.
system.GetProcessID;
Thanks