Составить программу, которая вводит, число, и определяет, является ли число положительным, отрицательным или равным нулю.

var

a: longint;

begin

write ('Введите число: ');

readln (a);

if a = 0 then writeln ('Данное число равно нулю.');

if a > 0 then writeln ('Число ', a, ' является положительным.');

if a < 0 then writeln ('Число ', a, ' является отрицательным.');

end.