Напишите программу в паскале авс, опеделяющую знак числа

Question

Напишите программу в паскале авс, опеделяющую знак числа

Comments

В Паскале есть готовая функция Sign(x)

Answer 1

Var a:integer;
Begin
read(a);
if a>0 then write('Число положительное');
if a<0 then write('Число отрицательное');<br>if a=0 then write('Введённое число - 0');
End.