Дано число А. Определить, положительное, отрицательное оно или равно 0.

Var x: integer;
begin
write ('Введите число: '); read(x);
if (x>0) then writeln ('Ваше число положительное!');
if (x<0) then writeln ('Ваше число отрицательное!');
if (x=0) then writeln ('Ваше число равно нулю!');
end.