Даю 100 баллов,если решите 4.13-4.15 с полным решением!

(4,13)
var n:integer;
begin
Writeln('Vvedite chislo');
readln(n);
if (ngt;=100) and (nlt;1000) then
Begin
Writeln('Yavlyaetsya');
end
else
writeln('Ne Yavlyaetsya');
readln;
end.

(4,15)
var number : integer ;
begin
write('Vvedite chislo  ');
readln(number);
if number mod 2  = 0 then         
writeln('Chislo chetnoe')
else writeln('Chislo ne chetnoe');
readln;
end.

(4.14)
var
a,x,b:real;
begin
writeln('vvedite koordinatu x :');
readln(x);
writeln('vvedite a :');
readln(a);
writeln('vvedite b :');
readln(b);
if agt;b then if (xlt;=a)and(xgt;=b)then 
writeln('Yes') 
else 
writeln('No') 
else
if (xlt;=b)and(xgt;=a) then
writeln('Yes')
else
writeln('No');
end.

Если что, 14 подшамань чуток, а так все верно