Проверка числа на отрицательность:
Паскаля нет, но могу дать код условия:
переменные a:integer;
условие проверки:
if a<0 then <br>Writeln("Число отрицательное")
else
Writeln("Число положительное");
end;
Входит ли число в диапазон:
a:integer;
b,c:integer;
begin
b:=-10;
c:=40;
if (a>=b) and (a<=c) then <br>Writeln("Число входит в диапазон (-10:40)") else
Writeln("Число не входит в диапазон (-10:40)");
end;