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

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