Area de um Poligono

{ paulogp }
{ mac os 7 }
program Ada02p (Input, Output);

uses
    MemTypes, QuickDraw, OSIntf;

var
    n: Integer;
    pi, area, comp: real;
    fim: string;

begin
    repeat
        clearscreen;
        pi := 4 * arctan(1);
        writeln('Programa: Cálculo da área de um Polígono.');
        writeln;
        {Leitura de dados}
        write('Escreva o número de lados do polígono: ');
        readln(n);
        writeln;
        write('Escreva o comprimento do lado: ');
        readln(comp);

        {Calculo da Area}
        area := 0.25 * n * sqr(comp) * cos(pi / n) / sin(pi / n);

        {Escrita dos resultados}
        writeln;
        writeln;
        writeln('O polígono de ', n : 1, ' lados e comprimento ', Comp : 1 : 2, ' tem área igual a: ', Area : 1 : 2);
        writeln;
        writeln;
        write('Repetir programa (S/N): ');
        readln(fim);

        uprstring(fim, true);
    until fim = 'N';
end.