нужна экспертная оценка опытного программиста

[Tatiana_K]

Пожалуйста, оцените эффективность программы!
Задача:
На плоскости задано множество точек с целочисленными координатами, никакие две из которых не совпадают и никакие три не лежат на одной прямой. Необходимо найти количество треугольников, обладающих следующими свойствами:
1) все вершины треугольника принадлежат заданному множеству;
2) ни одна вершина не лежит на осях координат;
3) треугольник не пересекается с осью Ox, но пересекается с осью Oy.
Напишите эффективную по времени и по используемой памяти программу для решения этой задачи.
Программа:

var ch,ch1,ch2,ch3,ch4,ch11,ch22,ch33,n,ch44,x,y,i:integer;
begin
readln(n);
ch1:=0;
ch2:=0;
ch3:=0;
ch4:=0;
ch11:=0;
ch22:=0;
ch33:=0;
ch44:=0;
for i:=1 to n do
begin
read(x,y);
if (x>0) and (y>0) then ch1:=ch1+1;
if (x>0) and (y<0) then ch4:=ch4+1;
if (x<0) and (y>0) then ch2:=ch2+1;
if (x<0) and (y<0) then ch3:=ch3+1;
end;
for i:= 0 to ch2-1 do
ch22:=ch22+i;
for i:= 0 to ch1-1 do
ch11:=ch11+i;
for i:=0 to ch3-1 do
ch33:=ch33+i;
for i:=0 to ch4-1 do
ch44:=ch44+i;
ch:=ch44*ch3+ch33*ch4+ch11*ch2+ch22*ch1;
writeln(ch);
end.

Спасибо!

[min@y™]

оцените эффективность программы

А чо это такое, по твоему мнению?

[Аватар]

Оценка сложности алгоритма небось

[FPaul]

Это, наверное из ЕГЭ. Там снижают оценку, если ввод массива не совмещён с обработкой, и всякие разные странности.