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

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