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.