{$APPTYPE CONSOLE}
Procedure G(p: pointer);
Const
    Messages: array[false..true] of string = ('Не гниль', 'Гниль');
Begin
    Writeln(Messages[p=nil])
End;

Begin
    G(nil)
End.