1.
var a, one, dec, hun, thous: integer;
begin
writeln('Введите число');
readln(a);
one := a mod 10; dec := (a mod 100) div 10; hun := (a div 100) mod 10; thous := a div 1000;
if (thous < hun) and (hun < dec) and (dec < one) then writeln('TRUE')
else writeln('FALSE');
readln
end.
2.
var x,y:real;
begin
writeln('Введите координаты через пробел');
readln(x,y);
if ((x<=-2)and(x>=-1)and(y>=0)and(y<=2))or((x>=-1)and(x<=1)and(y>=1)and(y<=2))or((x>=1)and(x<=2)and(y>=0)and(y<=2))or((y<=0)and(y>=-x-1)and(y>=x+1)) then writeln('TRUE')
else writeln('FALSE');
readln
end.