Вычислить, лежит ли пункт внутри квадрата

 program kvardraty;
 uses crt;
type point=record
           x,y:real;
           end;
//функция принадлежности точки треугольнику
function prin_trg(a,b,c,t:point):boolean;
//функция удвоенной площади треугольника по координатам
function plosh(a,b,c:point):real;
begin
  plosh:=(a.x-c.x)*(b.y-c.y)-(b.x-c.x)*(a.y-c.y)
end;
var s1,s2,s3:real;
begin
s1:=plosh(t,a,b);//определяем площади 3х малых треугольников
s2:=plosh(t,b,c);
s3:=plosh(t,c,a);
//если произведения площадей попарно больше 0, то точка внутри
prin_trg:=(s1*s2>0) and (s2*s3>0)
end;
 
var a,b,c,d,v,vb,vd,t:point;  x,y:real;
begin
writeln('Введите координаты первой вершины');
readln(a.x,a.y);
writeln('Введите координаты противоположной вершины');
readln(c.x,c.y);
writeln('Введите координаты точки');
readln(t.x,t.y);
//найдем координаты остальных вершин квадрата
z.x:=(a.x+c.x)/2;//координаты центра
z.y:=(a.y+c.y)/2;
v.x:=a.x-z.x;//вектор из центра к А
v.y:=a.y-z.y;
vb.x:=v.y; //вектор из центра к В
vb.y:=-v.x;
vd.x:=-v.y;//вектор из центра к D
vd.y:=v.x;
b.x:=z.x+vb.x;//координаты вершины В
b.y:=z.y+vb.y;
d.x:=z.x+vd.x;//координаты вершины D
d.y:=z.y+vd.y;
clrscr;
writeln('Координаты вершин квадрата');
writeln('A(',a.x:0:2,';',a.y:0:2,')');
writeln('B(',b.x:0:2,';',b.y:0:2,')');
writeln('C(',c.x:0:2,';',c.y:0:2,')');
writeln('D(',d.x:0:2,';',d.y:0:2,')');
writeln('Координаты точки');
writeln(t.x:0:2,';',t.y:0:2);
if prin_trg(a,b,c,t)or prin_trg(a,c,d,t)
then write('Точка принадлежит квадрату')
else write('Точка не принадлежит квадрату')
 
end.

uses crt;
type point=record x,y:real;end;
function prin_trg(a,b,c,t:point):boolean;
function Plosh(a,b,c:point):real;
begin
Plosh:=(a.x-c.x)*(b.y-c.y)-(b.x-c.x)*(a.y-c.y); end;
var s1,s2,s3:real;
begin
s1:=Plosh(t,a,b);
s2:=Plosh(t,b,c);
s3:=Plosh(t,c,a);
prin_trg:=(s1*s2>=0)and(s2*s3>=0);
end;
var a,b,c,d,z,v,vb,vd,t:point;
begin
writeln('vved koord 1 tochki');
readln(a.x,a.y);
writeln('vved koord proizvol velich');
readln(c.x,c.y);
writeln('vved koord tochki');
readln(t.x,t.y);
 
z.x:=(a.x+c.x)/2;
z.y:=(a.y+c.y)/2;
v.x:=(a.x-z.x);
v.y:=(a.y-z.y);
vb.x:=v.y;
vb.y:=-v.x;
vd.x:=-v.y;
vd.y:=v.x;
b.x:=z.x+vb.x;
b.y:=z.y+vb.y;
d.x:=z.x+vd.x;
d.y:=z.y+vd.y;
 
clrscr;
writeln('koord vnutr kvadr');
writeln('A(',a.x:0:2,';',a.y:0:2,') ');
writeln('B(',b.x:0:2,';',b.y:0:2,') ');
writeln('C(',c.x:0:2,';',c.y:0:2,') ');
writeln('D(',d.x:0:2,';',d.y:0:2,') ');
writeln('koord tochki');
writeln(t.x:0:2,';',t.y:0:2);
if prin_trg(a,b,c,t) or prin_trg(a,c,d,t)
then write('prendleg kvadratu' )
else  write('ne prendleg kvadratu' );
end.