Ввести с клавиатуры число. вывести на экран символ числа (+1 если

program zz1;

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

begin

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

read (a);

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

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

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

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

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

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

end.