2 Дима Баглаев тут придется геометрию терзать)
во 1 что ето за координаты в первых 2 строках файла... координаты чего?

Program Kursovik;
Const koor=25; {kol-vo to4ek}
Type exact=real; {to4nost}
MyMas=longint;
MyArray=array [1..koor, 1..2] of MyMas;
Var g1,g2, {koli4estvo to4ek po raznie storoni pr9moy}
p, {modul' raznosti mezhdu nimi}
i,j, {nomer to4ki iz massiva}
i0,j0,
c,l, {s4et4iki}
lol: integer;
x,y, {koordinati to4ki}
x1,x2,y1,y2, {koordinati to4ek, 4erez kotorie proxodit pr9ma9}
k,b:exact; {koefficienti pr9moy}
stop: boolean;
m: MyArray; {massiv, v kotoriy vxod9t to4ki}
init, out: text;
d: longint;

{procedure read (const m:MyArray; var init:text);
var i,d: longint;
begin reset(iniy); i:=0;
while not(Eoln(init)) do begin i:=i 1;
read(init,d);
m[i,1]:=d;
end;
i:=0;
while not(Eof(init)) do begin i:=i 1;
read(init,d);
m[i,2]:=d;
end; }

procedure print (const i,j,p:integer; const m: MyArray);
begin
writeLn ('Pr9ma9 proxodit 4erez to4ku, u kotorix koordinati (',m[i,1],',',m[i,2],') i (',m[j,1],',',m[j,2],')');
writeLn ('i razli4auts9 po koli4estvu na p to4ek',p);
end;

begin
j:=2; p:=koor; stop:=false;
assign (out, 'out.txt');
rewrite (out);

assign (init,'init.txt'); reset(init);
i:=0;
while not(Eoln(init)) do
begin i:=i 1;
read(init,d);
m[i,1]:=d;
end;
i:=0;
while not(Eof(init)) do
begin i:=i 1;
read(init,d);
m[i,2]:=d;
end;
i:=1;

while not (stop) do
begin c:=0; g1:=0; g2:=0;
x1:=m[i,1]; y1:=m[i,2]; x2:=m[j,1]; y2:=m[j,2];
if not(x1=x2) then
k:=(y1-y2)/(x1-x2);
b:=y1-k*x1;

while c<koor do
begin
c:=c 1;
if (not(c=i)) and(not(c=j)) then begin x:=m[c,1]; y:=m[c,2];
if y>k*x b then g1:=g1 1;
if y<k*x b then g2:=g2 1; writeln (g1,' ',g2);
end;
end;
if abs(g1-g2)<p then begin p:=abs(g1-g2); i0:=i; j0:=j; end;
j:=j 1;
if j>koor then begin i:=i 1; j:=J 1; end;
if i>koor then stop:=true;
end;
print(i,j,p,m);
readln;
end.

Ну вот всё, что есть у меня :)

=) я имел ввиду задачу а не сам код..))
я попробую сам написать с 0.. просто мне не очень понятно само условие задачи)

Так вот условие: Из заданного множества точек на плоскости выбрать 2 различные точки так, чтобы количество точек, лежащих по разные стороны прямой, проходящей через эти 2 точки, различались наименьшим образом.

Не заметил, видимо :))

а если точки лежат на самой прямой... то куда их надо считать? или ваще не считать?)

Тогда не считать...)

Хотите РЕАЛЬНУЮ помощь с паскалем? Учите си. Я серьезно, паскаль маломощный язык, к тому же мертвый. Если вы, конечно, собираетесь заниматься программированием в дальнейшем.

А если серьезно, то могу набрасать на сях

Хм...Я непременно займусь изучением си, когда с учёбой попроще станет...решение этой задачи на си я где-то уже находила)

ПРИВЕТ ВСЕМ!!!КТО ЗНАЕТ КАК В ПАСКАЛЕ ПЕРЕЙТИ С АНГЛИЙСКОГО ЯЗЫКА НА РУССКИЙ??ОЧЕНЬ СРОЧНО НАДО!!!