Ответ во вложении. Каждая колонка с двумя парами двоичных тетрад (т.е. набор из восьми нулей и единичек) - это и есть ответ.
Program qq;
uses crt;
var
x1,x2,y1,y2,a,b,S,P:integer;
Begin
Readln(x1,y1,x2,y2);
a:=x2-x1;
b:=y2-y1;
S:=a*b;
P:=(a+b)*2;
Writeln(S,P);
Readkey;
End.
1)FALSE (т.к. X>Y)
2)TRUE (x<y,x не равен y)
3)FALSE(x>y
)<span>4)TRUE(т.к. x=y, x не равен y)</span>
1б
2г, хотя некоторые проги (типа АдобФлеш) заливают и незамкнутые
3 не знаю, наверное 5 - 4 точки углов и цвет заливки