введите с клавиатуры число и выведите на экран сообщение о его знаке

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