Напишите, пожалуйста, программы для паскаля, вот эти, что на картинке:

A:integer; begin if a>0 then writeln("Число положительное") else writeln("Число отрицательное"); end; Входит ли число в диапазон: a:integer; b,c:integer; begin b:=7; c:=120; if (a>=b) and (a<=c) then  Writeln("Число входит в диапазон (7:120)") else Writeln("Число не входит в диапазон (7:120)"); end;