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

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