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

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