uses System.StrUtils;

var
  N: Integer;
  Classify: string;
begin
  N := -42;

  //no ternary operator: IfThen;
  //both branches are evaluated eagerly
  Classify := IfThen(N > 0,
    'positive', 'negative');
  //classify is 'negative'

  WriteLn('number ', N, ' is ', Classify);
end.