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

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;