1.
Во втором квадранте координатной плоскости x<0, y>0
var flag: boolean;x,y:real;begin x:=1;y:=-1;flag := (x<0) and (y>0);end.2.
Во первом или третьем квадранте - и x и y имеют один знак, либо одновременно положительны, либо одновременно отрицательны.
var flag: boolean;x,y:real;begin x:=1;y:=-1;flag := (x*y>0);end.
3.
Точка лежит на координатной оси Ох - только в случае когда координата y равна нулю.
var flag: boolean;x,y:real;begin x:=1;y:=-1;flag := (y=0);end.
4.
Число а состоит не более чем из трёх цифр
Это если число больше минус 1000 и меньше 1000
var flag: boolean;a:integer;begin a:=1;flag := (a>-1000) and (a<1000);</strong>end.
5.
число а кратно трём (проевряем остаток от деления на 3 на равенство нулю)
var flag: boolean;a:integer;begin a:=1;flag := ((a mod 3)=0);end.
6.
не понял вопроса.