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

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

const
  filein  = 'Poligon.txt';

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

begin
  clrscr;
  writeln;
  
  { Citirea datelor din fisierul <filein>, daca exista }
  nr := readf_puncte(filein ,p);
  
  if nr = 0 then begin
     readkey;
     exit;
  end;
  
  { 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.