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

program zz1;

var a: integer; / / вводим переменную целого типа

begin

write (' введите число '); / / вводим с клавиатуры заданное число

read (a);

if a < 0 / / проверяем условие, если введенное число меньше нуля, то

then write (' - 1 '); / / выводим на экран один ответ

if a > 0 / / проверяем условие, если введенное число больше нуля, то

then write (' + 1 '); / / выводим на экран другой ответ

if a = 0 / / проверяем условие, если введенное число равно нулю, то

then write (' 0 '); / / выводим на экран третий ответ

end.