var x,y,z:integer; begin if x < 0 then begin ... // Ветка с отрицательным значением X; end else begin ... // Ветка с положительным или нулевым(!!!) значением X; end; end.