program test_concole;

{$APPTYPE CONSOLE}

var
  param: string;
  res  : widestring;

type Point=record
     x,y:real;
end;

type line=record
     a,b,c:real;
end;

function delta(z1,z2:real):real;
begin
 if z1=0 then delta:=0
 else delta:=z2/z1;
end;

function per(l1,l2:line;var Plot:Point):boolean;
var p:Point;
    da,db,dc,b,c:real;
    ch:boolean;
begin
 ch:=true;
 da:=delta(l1.a,l2.a);
 db:=delta(l1.b,l2.b);
 dc:=delta(l1.c,l2.c);
 if (da=db) and (db=dc) then ch:=false
 else
  begin
   b:=l2.a*l1.b-l1.a*l2.b;
   c:=l2.a*l1.c-l1.a*l2.c;
   p.y:=c/b;
   p.x:=(l1.c-l1.b*p.y)/l1.a;
  end;
 Plot:=p;
 per:=ch;
end;

function dlina(p1,p2:Point):real;
begin
 dlina:=sqrt(sqr(p1.x-p2.x)+sqr(p1.y-p2.y));
end;

function geron(p1,p2,p3:Point):real;
var pp,a,b,c:real;
begin
 a:=dlina(p1,p2);
 b:=dlina(p2,p3);
 c:=dlina(p1,p3);
 pp:=(a+b+c)/2;
 geron:=sqrt(pp*(pp-a)*(pp-b)*(pp-c));
end;

function equal(p1,p2:Point):boolean;
begin
 if (p1.x=p2.x) and (p1.y=p2.y) then equal:=true
 else equal:=false;
end;

var l:array[1..3] of Line;
    p:array[1..3] of Point;
    i:integer;
    s: string;

begin
 for i := 1 to 3 do
  begin
   writeln('vvedite ',i,' line:');
   read(l[i].a,l[i].b,l[i].c);
  end;
 if(per(l[1],l[2],p[1]) and per(l[2],l[3],p[2]) and per(l[1],l[3],p[3]))
 then
  begin if not(equal(p[1],p[2]) or equal(p[1],p[3]) or equal(p[1],p[3]))
   then writeln('S=',geron(p[1],p[2],p[3]))
   else writeln('Not possible');
  end
 else writeln('Not possible');

 ReadLn(i);

end.

[Hint] test_concole.dpr(86): Value assigned to 'i' never used
[Hint] test_concole.dpr(9): Variable 'param' is declared but never used in 'test_concole'
[Hint] test_concole.dpr(10): Variable 'res' is declared but never used in 'test_concole'

[Hint] test_concole.dpr(79): Value assigned to 'i' never used