Question

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

Answer 1

Program znak;

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