with Ada.Text_IO;           use Ada.Text_IO;
with Interfaces.C;          use Interfaces.C;
with Interfaces.C.Strings;  use Interfaces.C.Strings;

procedure call is
    function kill (pid: Integer; signal: Integer) return Integer;
    pragma Import (C, kill, "kill");
    res: Integer;
begin
    res := kill(2,3);
    if res /= 0 then
        Put_Line("Blad");
    else
        Put_Line("Sukces");
    end if;
end call;