Очень срочно,помогите пожалуста сделать желая бы первых три!

Знать бы еще украинский

6) на русском напишите?

Паскаль:
1) (xlt;0) and (ygt;0)
2) x*ygt;0
3) y=0
4) abs(a)lt;1000
5) a mod 3 = 0

1.
Во втором квадранте координатной плоскости xlt;0, ygt;0
var flag: boolean;x,y:real;begin x:=1;y:=-1;flag := (xlt;0) and (ygt;0);end.2.
Во первом или 3-ем квадранте - и x и y имеют один символ, или сразу положительны, или одновременно отрицательны.
var flag: boolean;x,y:real;begin x:=1;y:=-1;flag := (x*ygt;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 := (agt;-1000) and (alt;1000);end.
5.
число а кратно трём (проевряем остаток от дробленья на 3 на равенство нулю)
var flag: boolean;a:integer;begin a:=1;flag := ((a mod 3)=0);end.
6.
не сообразил вопроса.