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

(* рТПГЕДХТБ warnuser -- ЧЩЧПД УППВЭЕОЙС Й ЪЧХЛПЧПЗП УЙЗОБМБ *)
{$mode objfpc}
uses linux;

(* тБВПФБЕФ ОБ ВПМШЫЙОУФЧЕ ФЕТНЙОБМПЧ *)
const
bel:char=#$7;


procedure warnuser(str:pchar);
begin
(* ьФП ФЕТНЙОБМ?? *)
if isatty(2) then {stderr}
write (stderr, bel, bel, bel);
writeln (stderr, 'РТЕДХРТЕЦДЕОЙЕ: ', str);
end;


begin
warnuser ('Test warning!');
end.