Ввести с клавиатуры число. вывести на экран знак числа (+1 если больше нуля, - 1 если меньше нуля, 0 если равно нулю)

Program chisla;

uses crt;

var a:integer;

begin

Write ('Введите число - ');

readln (a);

If a>0 then

write ('+1')

else begin

If a<0 then

write ('-1')

else begin

If a=0 then

write ('0')

else begin

end;

end;

end;

end.