Дано число. определить положительное оно или отрицательно.

Решение смотри во вложении.

Var
a:double;
Begin
write('Введите число: ');
read(a);
if a > 0 then write('Число положительное')
else
if a < 0 then write('Число отрицательное')
else
write('Введен 0, он нейтральный');
End.