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.