Помогите написать на языке паскаля, очень прошу !

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