zadaca prave

Ako moze da mi odgovorite zasto na zadacata prave 7 mi test primer nije mi tocan
??
Da ne znaete do sto e problemot

promeni go pom od real vo extended, ili

transformiraj ja formulata, za da go izbegnes delenjeto:

for k:=j+1 to n do
if ((y[k]-y[i])*(x[j]-x[i])) = ((y[j]-y[i])*(x[k]-x[i])) then
inc(brt);

fala za pomosta go transformirav delenjeto i konecno pomina na sedmiot test primer