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

(* рТПЗТБННБ my_pwd ЧЩЧПД ТБВПЮЕЗП ЛБФБМПЗБ *)

uses sysutils;

procedure my_pwd;
begin
writeln(GetCurrentDir);
end;


begin
my_pwd;
end.