kade e greskata?

Ova mie e kodot za z-prave,raboti samo za 4 primeri



var i,j,n,m,odg,k:byte;
x,y:array[1..100]of real;
t:array[1..100,1..100]of boolean;
pom1,pom2,pom3:real;
function sl(i,j:longint):real;
begin
if x[i]=x[j] then sl:=123.0231 else
sl:=(y[j]-y[i])/(x[j]-x[i]);
end;
begin
readln(n);
odg:=0;
for i:=1 to n do readln(x[i],y[i]);
for i:=1 to n-1 do
begin
for j:=i+1 to n do
begin
t[i,j]:=false;
end;
end;
for i:=1 to n-2 do
begin
for j:=i+1 to n-1 do
begin
if t[i,j]=false then
begin
t[i,j]:=true;
inc(odg);
end;
for k:=j+1 to n do
begin
if abs(sl(i,k)-sl(i,j))<0.0000001 then
begin
t[i,k]:=true;
t[j,k]:=true;
end;
end;
end;
end;
for i:=1 to n-1 do if t[i,n]=false then inc(odg);
writeln(odg);
end.