var N: integer; begin write(' N = '); readln(N); if N>0 tnen write(' положительное ')else write(' отрицательное ');end.
