Алгоритмы. Ввести на печать знак введенного числа

Условие на Pascal if x < 0 then writeln ('-'); if x > 0 then writeln ('+'); if x = 0 then writeln ('Введен ноль');