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