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

Question

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

---

Answer 1

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 <br>Writeln("Число входит в диапазон (7:120)") else
Writeln("Число не входит в диапазон (7:120)");
end;