Program Lab_3_1;
uses crt, Types, Poligon, IOGeom, Transf;

(****************************************
 * Aria poligonului simplu
 ****************************************)

const
  filein  = 'Poligon.txt';

var
  p: TabelPuncte;
  nr: integer;
  aria: real;

begin
  clrscr;
  writeln;
  
  { Citirea coordonatelor punctelor de la tastatura }
  nr := introdu_puncte(p);

  { Afisarea coordonatelor inainte de transformare }
  write_puncte(p, nr);

  { Calcularea ariei poligonului simplu }
  aria := aria_polig_simplu(p, nr);

  { Afisarea rezultatului }
  writeln;
  writeln('Aria poligonului este: ', aria:8:2);

  readkey;
end.