Задача в паскале.определить входит ли в треугольник с заданными координатами начало координат. Опции

[serg]

Собственно в теме написано,помогите,желательно без функций.

[Unconnected]

FATALITY!

var koor:array[1..6] of integer;
    i,s:byte;

function chet(x,y:integer):byte;
begin
  if (x>0) and (y>0) then chet:=1;
  if (x>0) and (y<0) then chet:=2;
  if (x<0) and (y<0) then chet:=3;
  if (x<0) and (y>0) then chet:=4;
end;

begin
  writeln('Vvedite koordinati vershini #',1);
  readln(koor[1],koor[2]);
  writeln('Vvedite koordinati vershini #',2);
  readln(koor[3],koor[4]);
  writeln('Vvedite koordinati vershini #',3);
  readln(koor[5],koor[6]);
  if (chet(koor[1],koor[2])<>chet(koor[3],koor[4])) and
  (chet(koor[3],koor[4])<>chet(koor[5],koor[6])) and
  (chet(koor[1],koor[2])<>chet(koor[5],koor[6])) then writeln('YES, of course')
  else
    if (chet(koor[1],koor[2])+chet(koor[3],koor[4])+chet(koor[5],koor[6])=5)
    or ((chet(koor[1],koor[2])+chet(koor[3],koor[4])+chet(koor[5],koor[6])=7)
    and (chet(koor[1],koor[2])=1) or (chet(koor[3],koor[4])=1))
    or (chet(koor[1],koor[2])+chet(koor[3],koor[4])+chet(koor[5],koor[6])=8)
    or ((chet(koor[1],koor[2])+chet(koor[3],koor[4])+chet(koor[5],koor[6])=10)
    and (chet(koor[1],koor[2])=4) or (chet(koor[3],koor[4])=4))
    then writeln('YES, of course')
    else writeln('NO,it isn"t...');
    readln;
end.